Software 
Library 



The Software Library is in the 
process of being transferred to the 
same facility that houses the new 
Altair Software Distribution Company. 

Effective immediately, the 
Software Department will no longer 
accept orders for library programs . 

Please refer all orders to: 

Altair Software Library 
3330 Peachtree Road 
Suite 343 
Atlanta, Georgia 30326 



<sorropt 



correction 



In the October issue there was 
an error in the 4PI0 Operation 
article (page 5) . In B Section 
Control Register, Bit 3 should read 
zero rather than 1. 



B Section Control Register CB2 


Bit 5 


Bit 4 


Bit 3 


Cleared 


Set 


1 








LOW on positive going 
transitions of first 
E pulse following write 
on B Data Channel after 
Control/Status bit 7 is 
cleared by read of B 
Data Channel. 


HIGH when C/S bit 7 
is set HIGH by CB1 
active transition. 



Bits and Pieces 



By Sondra Koppenheffer 



Projected Shipping Dates : 



Rzmzmbzn that MITS o^zha a tanctzd natkzn. than a {uM wawtanty. 
Ovji 90-day uiaJi/ianty on ai&embZzd Jjtzm& covzu manu&actu/iing dz^zcti 
plu6 any taboK incuAHzd a& a tit&ult ol thz dz^zct. We aJUo havz a 90- 
day kit wawianty which cov&u only panti. 1^ you have, any ipzcl^ic 
qu.eAitX.om, about youn. mwumty, pZzd&z izzl i^izz to contact ut>. 



Imagine this: You've just come 
home from a long day at work. Look- 
ing through your mail, you see a 
letter from MITS, Inc. With excite- 
ment, you rip it open and find your 
order acknowledgement inside. As 
you glance over the rest of the 
letter, you're suddenly horrified 
and angered by the projected ship- 
ping dates. "Two months! But they 
assured me that they had those items 
in stock!" 

I'm sure this is a familiar 
scene to many of you. No, MITS did 
not mislead you about the avail- 
ability of the items which you 
ordered. But our computer is set 
up to automatically print out a 
two month projected shipping date. 
Like our customers, we also buy 
parts from various companies. On 
occasion, they are unable to meet 
a deadline, which causes a delay 
in our own production. This two 
month shipping date allows for such 
delays. 

We routinely ship out items on 
schedule in accordance with our 
promise to you. But if any problems 
should arise, feel free to contact 
us and we'll promptly check into 
the matter for you. 

Helpful Hints on Speeding up Address 
Changes : 

Print or type clearly, both 
your new and old address. Include 
the MITS order number from your 
original purchase of an 8800 or 680. 
If you no longer have your original 
invoice, include a label from a 
current mailing of Computer Notes 
(your order number will be printed 
in the upper right hand corner) . 
State whether or not you have any 
items currently on order. 



Reminder : 

The only way in which we will 
accept a phone order is if payment 
is through either BankAmericard or 
MasterCharge. If a mail order is 
placed and the payment is through 
the use of a personal or company 
check, we require a three-week hold- 
ing period. 

Time Payments : 

For those of you on our Kit-a- 
Month Package, let me remind you 
that one time payment is not a 
definite limit on your monthly 
orders. If on occasion you wish to 
order more than one installment dur- 
ing a one month period, that's per- 
fectly OK with MITS. Simply state 
which time payments you want, and 
they will be shipped out to you as 
soon as possible. 



Defective Parts? 

To insure that you receive the 
correct part in exchange for your 
defective parts, we ask that you 
include the MITS part number as 
stated in each manual, plus the 
name of the part. When this infor- 
mation is included, your new parts 
will get shipped out to you much 
more quickly. 

Those of you who have pur- 
chased units from any of our 
dealers and discover that you need 
replacement parts, must again go 
through that dealer. We will no 
longer accept orders for replace- 
ment, defective or missing parts 
from any customer who purchased the 
item in question through one of our 
dealers. 



Warranty : 

Recently we have had several 
people who learned a lesson the hard 
way. Any item which is purchased 
from MITS has a certain warranty 
time on it. If ever you purchase 
something from MITS and find that it 
is defective, please inform us as 
soon as possible. If you wait, 
hoping that the problem will dis- 
appear, the warranty on the item 
might run out, and you will end up 
paying a sum of money that would not 
have been necessary. We're on your 
side, but the line must be drawn 
somewhere. Don't end up paying for 
this lesson out of your pocket. 



COMPUTER 
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MITS ANNOUNCES 

ORIVIATIOIM OF 



By John Hayes 

MITS President, Ed Roberts , 
has announced the formation of a 
subsidiary company designed to 
provide Altair computer users with 
the finest applications software 
available for microcomputers. An- 
nouncing the formation of the 
Altair Software Distribution Company, 
Roberts said, "The ASDC will help 
MITS provide the total support for 
the Altair family of computers, 
MITS is now producing the widest 
line of microcomputer systems and 
peripherals available from any 
manufacturer. The formation of 
the ASDC will provide a mechanism 
to make certain that Altair computer 
users have applications software 
that meets their needs and will be 
fully supported for years to come." 

Roberts briefly explained how 
ASDC will run. "The Altair Software 
Distribution Company will acquire 
sophisticated applications software 
from persons around the country. 
The software will be carefully 
evaluated, thoroughly checked for 
errors, fully documented and dis- 
tributed through all Altair computer 
centers. The ASDC will contract for 
applications software on either a 
direct purchase arrangement or a 
continuing royalty fee." Roberts 
said that people who have written 
software will be very well compen- 
sated for their efforts. "We are 
trying to encourage creativity and 
make it financially attractive for 
people to produce quality software 
for the Altair family of computers," 
he added. 



Ron Roberts (no relation) has 
been named president of the Altair 
Software Distribution Company. He 
said ASDC will be looking for only 
first quality software. "By first 
quality software, we mean software 
which has been carefully designed, 
properly coded, and thoroughly 
debugged," he explained. "We have 
exacting standards for the type of 
documentation which must be pro- 
duced. Well -written software is 
only half the problem--the other 
half is the completion of thorough 
documentation." Ron Roberts also 
noted that the ASDC has published 
a booklet titled ASDC Software 
Submittal Packet , which describes 
the standards for applications 
software and the documentation to 
accompany the software. The packet 
is available to anyone who is 
interested in submitting software 
to the ASDC for possible inclusion 
in the ASDC library. Packets can 
be obtained from Altair computer 
centers in each major city or dir- 
ectly from the Altair Software 
Distribution Company. 

This month, MITS President, 
Ed Roberts, also announced the 
release of the Altair Business 
System by the ASDC. (See article, 
page 4 ) . This system includes 



packages for accounting, inventory 
management and word processing. 
The accounting package includes a 
comprehensive general ledger system 
and will include packages for in- 
voicing, receivables, payables 
and payroll. All the applications 
software supported by the ASDC 
will be available through local 
Altair computer centers in each 
major city. The software will be 
sold only through Altair dealers 
rather than directly to the public 
by ASDC. 

The Altair Business System 
carries a guarantee of three years 
of software maintenance included in 
the initial licensing fee in addi- 
tion to the continuing support that 
the ASDC and the dealers will pro- 
vide for the software. 

For more information about 
submitting software to the ASDC or 
the Altair Business System, contact 
your local Altair dealer (see list, 
page 18) or write the Altair Software 
Distribution Company at Suite 343, 
3330 Peachtree Road N.E., Altanta, 
Georgia 30326, phone (404) 231- 
2308. 



ALTAIR SOFTWARE 

DISTRIBUTION 
COMPANY 



ALTAIR 8800 AIDS 
IN CELL RESEARCH 



By H. Craig Wiles 

M/i. WA£&> <L& a blomtdicaZ. 
fiuncumk zng^nzeA at Vuko. UyuveAAlty 
In MoAtk CaAoLina. 



The Department of Biomedical 
Engineering at Duke University 
places a strong emphasis on research 
as well as the academic program 
and so is experiencing an increas- 
ing requirement for the micro- 
processor as a research support 
tool. This evolution began with 
the decision to introduce the micro- 
processor into the teaching lab 
program which stresses biomedical 
instrumentation and systems design. 
Two Altair 8800 's were acquired for 
the teaching labs. After observing 
their capabilities 5 the decision 
was made to utilize one of them as 
a prototype for use in research. 
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The research project involved 
extensive exploration of the mechano- 
chemical properties of red blood 
cell (RBC) membranes. The struc- 
tural properties of these bilayer 
membranes have only recently 
received serious consideration. 
It's these structural characteris- 
tics which provide security for the 
interior cytoplasm and nucleus as 
well as a means of control for ion 
transport from the external sur- 
rounding plasma to the cell. For 
example, these structural properties 
determine . the resistance to defor- 
mation which the red cell membrane 
experiences during microcirculation 
through the capillaries. 



Any method of study involving 
RBC's obviously requires extreme 
microscopic levels of observation 
and instrumentation. One of the 
research methods used involves 
single cell micropipette aspiration 
to produce nanogram forces on the 
cell membrane surface. The recorded 
data include temperature of the RBC 
environment j negative pressure of 
aspiration, magnitude of deformation 
and length of time for deformation. 
It's in this analysis of the micro- 
pipette aspiration method that the 
Altair 8800 is used. 



Continued on Page Twelve 



Page Three 



ASDC INTRODUCES 
ALTAIR BUSINESS SYSTEM 



By John Hayes 

The Altair Software Distribu- 
tion Company has announced the 
introduction of a comprehensive set 
of software packages designed for 
the small business system market. 
The Altair Business System include^ 
complete software packages for 
accounting, word processing and 
inventory management. It also in- 
cludes a timekeeping package. The 
software may be licensed for use 
in individual packages to accomo- 
date the needs of retail stores, 
small wholesale distribution cen- 
ters, industrial users, profes- 
sional firms and other business 
offices.; 

The new Altair Business System 
is designed around the Altair 8800 
Computer. The system hardware may 
be individually configured for each 
installation and typically includes 
a CRT terminal, a typewriter- 
quality precision printer and one 
or more floppy diskettes. The ASDC 
software will be available only 
through local Altair dealers. 

The Altair Business System 
software is packaged in modules to 
allow a purchaser to select the 
components of a system that will 
most closely fit his needs. The 
accounting package is comprised of 
four modules--general ledger, re- 
ceivables, payables and payroll. 
The GENERAL LEDGER package is the 
heart of a financial reporting 
system for a small business. It 
allows a firm to keep a detailed 
monthly general ledger of all its 
transactions by generating a 
monthly balance sheet and income 
statement to provide timely infor- 
mation on the financial status of 
the company. The general ledger 
package is already available. The 
PAYROLL package allows a company 
to prepare its periodic payroll for 

hourly or salaried employees while 
accumulating the necessary infor- 
mation for tax reporting. It auto- 
matically generates the monthly, 
quarterly and annual returns to 
be filed with local, state and fed- 
eral governments. It also prepares 
employee W-2s and maintains an up- 
to-date information reference for 
each employee. The RECEIVABLES 
package is a complete invoicing and 
monthly statement generating sys- 
tem that keeps track of the current 
and aged accounts receivable. The 
PAYABLES package keeps track of 
current and aged accounts payable 
and incorporates a check writing 
feature. Each of the three subsi- 
diary systems — receivables, pay- 
ables and payroll --provides input 
directly to the general ledger 
package. The subsidiary packages 
will be available during the first 
quarter of 1977. 
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Altair Business System on display at the Atlanta Systemcenter. 



The WORD PROCESSING package is 
a flexible text editor system that 
allows large volume text material, 
such as contracts or other lengthy 
documents, to be stored, easily, 
edited and printed. In addition, 
documents can call for inserts from 
other files, thereby making repet- 
itive letters and complicated docu- 
ments easy to produce. The text 
material is stored in a file without 
regard to pages or margins. In 
this way additional text material 
may be inserted conveniently while 
page heading, numbering, margins, 
spacing and other formats may be 
specified at the time of printing. 
A draft copy may be corrected and 
a final printed with different 
margins. A single document may 
contain up to 128,000 characters 
(about 35 single spaced pages), 
and documents may be linked for 
longer text. The text editor allows 
simple in-line corrections and ex- 
tremely powerful global editing to 
be easily accomplished. As with 



the other components of the Altair 
Business System, the Word Process- 
ing package contains a complete set 
of prompts, and other helping mes- 
sages that allow even an inexper- 
ienced operator to make full use 
of the system with minimum instruc- 
tions. The Word Processing package 
will be available during the first 
quarter of 1977. 

The INVENTORY MANAGEMENT pack- 
age is a flexible data base manage- 
ment system which allows a business 
to keep complete inventory records 
"on line". It's designed to allow 
a user to structure the fields in 
an inventory file so that the file 
and its reports contain the infor- 
mation needed by the particular 
business. In its off-the-shelf 
form, the Inventory Management 
package is structured for a typical 
retail store whose inventory reorder 
policy is based on minimum reorder 
Continued on Page Five 
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Altair Business System (cont.) 



points. Also available will be a 
POINT OF SALE option for the Inven- 
tory Management system. The Point 
of Sale option prepares a sales 
receipt while automatically updat- 
ing the inventory file and provid- 
ing a direct sales entry for the 
general ledger. The Inventory 
Management system is currently 
available and the Point of Sale 
option will be available during the 
first quarter of 1977. 



A TIMEKEEPING system is also 
available for law or accounting 
offices or other professionals who 
bill clients for time and expenses. 
The Timekeeping system keeps track 
of time and expenses separately and 
provides automatic billing and 
statement generation. The Time- 
keeping system will directly inter- 
face with the general ledger and 
will be available during the second 
quarter of 1977. 

The component packages of the 
Altair Business System are avail- 
able under a one-time fee licensing 
arrangement. The licensing includes 
three years of software maintenance. 
Each package is accompanied by a 
comprehensive set of documentation 
including operator guides and sys- 
tems guides as well as training 
aids. 

The Altair Business System may 
be seen at your local Altair Com- 
puter Center. For additional infor- 
mation see your local Altair Compu- 
ter dealer or contact the Altair 
Software Distribution Company, 
Suite 343, 3330 Peachtree Rd., N.E., 
Atlanta, Georgia, 30326, phone (404) 
231-2308. 



IP rOCJ Y3k IYi 

Progress 




How about a program on how to 
do an ascending and/or descending 
bubble sort of complex numbers in 
the form (a,b) and/or a^b; using 
BASIC? 

Suggested By: 

Roger Mann 

248 Beacon Hill Drive 
Ft. McMurray 
Alberta, Canada 
R9H 2R1 
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Altair BASIC 4.0 



By Paul Allen 



Changes to 4K and 8K versions in 4.0 



A number of new features have been added to BASIC Version 4.0. 
They include all the non-disk features added to the extended version 
since 3.2 — long program lines, the substring assignment MID$ function, 
octal and hex constants, etc. 

Only minor changes have been made to the 4K and 8K versions for 
release 4.0. There are no user visible changes in the 4K except for 
the change in sense switch encoding (not described in this article) . 
The main changes to the 8K version are the new editing characters 
(^U-Line delete, DEL-Rubout), the improved random number generator, 
and saving matrices on cassette (CSAVE.A and CL0AD.A). 

The material below describes only those features added between 
3.4 and 4.0 to the Disk version. 

Editing Input - Control/A 

The control -A character may be used to edit a line as it is 
being typed in. As soon as the control-A is typed, a carriage 
return line feed exclamation mark space sequence is printed, and the 
user may edit the input using any of the features of the EDIT command 
before hitting carriage return. 

Example: 

FOR 1=1 TO 100:?A(J),:NEXT I~A 

I (SJCI<return>)F0R 1=1 TO 100: ?A(I) , :NEXT I 

<F0R loop is executed> 

If an error is discovered during typing and before carriage return has 
been typed, control-A may also be used to edit the data at an INPUT 
Statement. 

Dot - The Current Line Number 

The dot character (.) may be used when a line number is expected 
in an EDIT, DELETE, LIST, or DELETE command. Dot is set to the current 
line when an error occurs, a line is listed, edited or inserted. 

Examples: 

LIST 100 
100 X=X+1 
OK 

EDIT. 
100 

5000 THIS IS A NEW LINE 

EDIT* 

5000 

Automatic Line Insertion - The AUTO Command 

When a program is created, program line numbers are usually 
entered in sequential fashion with a standard increment between the 
lines. The AUTO command provides for automatic generation of line 
numbers when entering program lines. The format of the AUTO command 
is: 

AUTO [<initial line>[, [<increment>]] ] 

Example: 

AUTO 100,10 

100 INPUT X,Y 

110 PRINT SQR(X~2+Y~2) 

120 "C 

OK 

Control-C is used to terminate an AUTO command. If the <initial 
line> is omitted, an initial line of 10 and an increment of 10 is 
assumed. If the <initial line> is followed by a comma but no incre- 
ment follows, the last increment used in an AUTO command will be used. 

Continued on Page Six 
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Altair BASIC 4.0 (cont.) 



SPACE$ and STRING$ Functions 



Two functions are available for generating a string containing a 
character repeated N times. This is useful for formatting output and 
for blank filling fields. The STRING$ function returns a string of its 
string argument repeated N times, If N is zero, the null string is 
returned. The string argument must be non-null. Only the first 
character of the string argument is used to form the result string: 

STRING$ (<numeric formula>,<string formula>) 

Example: 

PRINT STRING$(10,"A") 

AAAAAAAAAA 

OK 

Optionally, a second <numeric formula> may be substituted for the 
<string formula>. This causes the ASCII value of the <numeric formula> 
to be used to generate the character to be repeated: 

PRINT STRING$(10,65) 

AAAAAAAAAA 

The most common case for STRING$ would be to generate a string of 
spaces. A SPACE$ function is provided to make this convenient: 

PRINT SPACE$(10);"*" 
* 

OK 

XQR, EQV, IMP 

Three new operators have been added to extended BASIC. These 
operators function in exactly the same way as the AND and OR operators, 
that is, they force their arguments to integer and then return a six- 
teen bit integer result. The precedence of these operators is shown in 
relation to AND and OR: 

Highest: 

AND 
OR 
XOR 
EQV 

imp ,,,-.,;-,:•- 

The truth tables below describe how the bits of the result are formed 
from bits of the left-hand side (LHS) and right-hand side (RHS) operands. 

XOR: 



LHS 


RHS 


Result 


1 





1 





1 


1 


1 


1 














EQV: 






LHS 


RHS 


Result 


1 











1 





I 


1 


1 








1 


IMP: 






LHS 


RHS 


Result 


1 











1 


1 


1 


1 


1 


V 





1 



The FIX Function 

The FIX function takes a numeric argument and returns the trun- 
cated integer part of the argument. FIX is equivalent to SGN(X)*ABS 

(INT(X)). 

PRINT FIX (-1.1), INT (-1.1) 
-1 -2 

The major difference between FIX and INT is that FIX does not 
return the next lowest number for negative numbers. 



New Club 
Missouri- 

lllinois 



The first meeting of the St. 
Louis Area Computer Club was held 
October 29 on the campus of Wash- 
ington University. Approximately 
thirty people attended the organi- 
zational meeting, representing 
various vocations, ages, and geo- 
graphic areas (including the Illi- 
nois side of the Mississippi river) . 
Jon El son, president pro tem, 
remarked that the club may be 
unique in having a number of obscure 
computers, making communication 
among members difficult at any 
level below the flowchart. Commit- 
tees, on ^hardware, software, and 
applications were formed, and 
questionnaires were circulated to 
aid in planning tutorials and fac- 
ilities needed. Members stayed 
late discussing their favorite 
topics, with hardware reliability 
a commonly-voiced concern. Meet- 
ings are expected on a monthly 
basis. Contact: 

Lou Elkins 
314-427-6116, or 
Box 1143, 
St. Louis, MO 63188 



New Club 
Bpitsish 

Cffl 18 ■■ ™ 

oiomois 



Anyone having questions 
about the newly formed 
British Columbia Computer 
Society should contact 
one of the members listed 
below. 



1 . Officers : 



President: 



Treasurer: 
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Secretary: 



Karl Brackhaus 
203-1625 W 13th Ave. 
Vancouver, BC, Canada 
V6J 2G9 
(604) 738-9341 

Ken Browning 
605 Spender Drive 
Richmond, BC, Canada 
(604) 271-2637 

George Bowden 
1250 Nicola St. 
Vancouver, BC, Canada 
(604) 681-0688 



2. Time and Place of meetings: 

At 8:00 PM on the first Wednesday 
of every month in Room 129 of the 
British Columbia Institute of Tech- 
nology (BCIT). 

CN/November 1976 



Altair BASIC 4.0 (cont.) 



LINE INPUT With a String Argument 

The LINE INPUT function is now available in the Disk version. 
It can now also take an Optional string argument which is printed as a 
prompt: J 

LINE INPUT [<quoted string literal>;] <string variable> 

(Note: LINE INPUT destroys the input buffer.) 

Direct INPUT Allowed/Input of Double Precision Numbers 

The INPUT statement may now be given in direct mode in the 
extended version only without causing an "ILLEGAL DIRECT" error. 

In BASIC versions prior to 4.0, the Double Precision number input 
routine was not called when double precision values were INPUT, causing 
imprecise values to be returned. This has since been corrected. 

The amount of CPU time required to output a double precision value 
has also been improved. If the number is less than 10000, the number of 
additions required to scale the number properly has been reduced. 

Speed Improvements in the Disk Version 

A number of speed improvements have been made to the Disk 
version. All constants in programs are now converted to a one, two, 
three, five or nine byte token. All GOTO, GOSUB, THEN and ERL line 
numbers are now converted to pointers during program execution. This 
means that the program does not have to be searched for GOTO references. 

Changing Program Line Numbers - RENUMber 

The RENUMber command allows program lines to be "spread out" to 
permit the insertion of a new line or sequence of lines. The format 
of RENUMber is: 

RENUM [NN[,MM[,II]]] 

NN is the new line number of the first line to be resequenced. If 
omitted, NN is 10. MM is used to specify which lines in the program 
will be renumbered. Lines less than MM will not be renumbered. If MM 
is omitted, the whole program will be resequenced. II is the increment 
between the lines resequenced. If II is omitted, 10 is used. 

To RENUMber the whole program to start at line ten with an incre- 
ment of ten type: RENUM 

To RENUMber the whole program to start at line 100 with an incre- 
ment of 100, type: RENUM 100, 100 

To RENUMber lines 5000 and up so they start at line 6000 with an 
increment of 1000, type: RENUM 6000, 5000,1000 

(Note: Any attempt to RENUMber parts of the program on top of other 
parts of the program or to create line numbers greater than 65529 will 
cause a "FUNCTION CALL" error. 

All line numbers appearing after a GOTO, GOSUB, THEN ON . . . GOTO, 
ON . . . GOSUB and ERL <relational operator> will be properly changed by 
RENUMber to reference the new line number. ON ERROR GOTO statements 
are not affected by RENUMber. 

If a line number appears after one of the statements above but 
does not exist in the program, the message "UNDEFINED LINE XXXXXX IN 
YYYYY" will be printed. This line reference (XXXXX) will not be changed 

by RENUMber. 

(Note: The line number YYYYYY may later be changed by RENUM to a dif- 
ferent line number.) 

PEEKing and POKEing Above 32K 

It is now possible to PEEK and POKE addresses above 32767 using a 
positive argument. Negative arguments may still be used as before. 
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NOVEMBER 

SOFTWARE 
CONTEST 



By Stan Webb 

This month Henry Lacy wins both 
first and second place in the major 
program category with two useful, 
we 11 -documented entries. He receives 
first place for a combination of two 
programs, a Decimal Support Package 
which extends the capabilities of a 
program already in the Altair User 
Software Library, and a Decimal 
Output Routine to print the data run 
through the package. 

He takes second place for his 
Self- Incrementing Hand Loader. This 
program is an octal (or binary, 
depending on your viewpoint) loader 
which requires minimal hardware, 
that is, only an 8800 (no terminal). 

Third place goes to Lee Wilkin- 
son for his simple, useful Accounts 
Receivable program designed for 
small businesses. 

Darrel Van Buer takes first 
place in the subroutine for his 
Inverse Normal Distribution Function 
subroutine. This routine generates 
random numbers with a normal distri- 
bution. 

First Place Major Program 

#10-15-761 

Author: Henry E. Lacy 
Length: 153 bytes/ 136 bytes 
Title: Decimal Support Package 
(requires #8-18-752)/ 
Decimal Output Routine 

Second Place Major Program 

#10-21-762 

Author: Henry E. Lacy 
Length: 74 bytes 
Title: Self- Incrementing Hand 
Loader 

Third Place Major Program 

#10-19-761 

Author: Lee Wilkinson 
Length: 60 lines Altair BASIC 
Title: Accounts Receivable 



First Place Subroutine 

#10-12-761 

Author: Darrel Van Buer 
Length: 16 lines Altair BASIC 
Title: Inverse Normal Distribution 
Function 

Entries Accepted into Library 
#11-4-761 



Author: Gordon Berry 
Length: 32 lines Altair BASIC 
Title: Standardized and Weighted 
Scores 



Continued on Page Eight 
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Altair BASIC 4.0 (cont.) 



The HEX$ and 0CT$ Functions 



Two new functions have been provided to make conversion between 
numbers and their hex or octal representations easy. 

Functions: 

HEX$ (<integer formula>) 
0CT$ (<integer formula>) 

Example: 

PRINT HEX$(255),0CT$(255) 
FF 377 

Both HEX$ and 0CT$ return a string value whose characters repre- 
sent the hexadecimal or octal value of their argument. The resulting 
string does not have any leading or trailing spaces. 

Changes in Error Messages 

A new Error message has been added and an old error message 
changed . 

A MISSING OPERAND (Code 29) Error message occurs if an operator 
is encountered during formula evaluation, but no operand succeeds it: 

PRINT 2+ 
MISSING OPERAND 



The UNDEFINED STATEMENT error message has been changed to print 
UNDEFINED LINE (UL in the 8K version), which is more appropriate. 

Control-I and the Line Printer 

Tab (Control-I) now works properly with the line printer and 
moves the printer carriage to the next eight character field. 

New Features and Corrections to the Disk Version 

Random Disk data files may no longer be LOADED as a program 
accidentally, causing unpredictable results. A BAD FILE MODE error will 
occur. 

A new function has been provided in the Disk version to allow 
retrieval of error parameters when a DISK I/O ERROR occurs. ERR(0) 
returns the disk number of the disk. ERR(l) returns the track number 
(0-76) and ERR(2) returns the sector number. 

The disk number is no longer included in the I/O error message. 

If a LINK ERROR occurs while a file is being KILLed, the file 
name is now deleted from the directory. 

The VARPTR Function 

The VARPTR (<variable>) function returns the address of the variable 
given as the argument. If the variable has not been assigned a value 
during the execution of the program, a FUNCTION call error will occur. 

The main use of the VARPTR function is to obtain the address of 
variable or array so it may be passed to an assembly language subroutine. 
Arrays are usually passed by specifying VARPTR(A[o]) so that the lowest 
addressed element of the matrix is returned. 

(Note: All simple variables should be assigned values in a program 
before calling VARPTR of an array. Allocation of a new simple variable 
will cause the addresses of all arrays to change.) 



November Software Contest (cont.) 



#10-21-761 



Author: Philip Romanik 
Length: 30 lines HP BASIC 
Title: Random 
Random Number Generator 



#10-18-761 
Author: Jay Lucas 
Length: 100 bytes 
Title: Memory Test 
Assembler memory test, a very 
thorough one. 



#11-4-762 

Author: Gordon Berry 
Length: 300 bytes 
Title: Print Registers 

#10-25-761 

Author: Byron Johnson 
Length: 2 lines BASIC 
Title: Extended Precision Square 
Roots 

#10-25-762 

Author: Byron Johnson 

Length: 7 lines BASIC 

Title: BASIC Line Renumbering 

Renumbering program for 3.2 Extended 

BASIC. 



#10-27^761 

Author: Steven Armbruster 
Length: 210 bytes 680 Assembler 
Title: Political Influence 
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CN 
/Subscriptions 

In the October issue of 
Computer Notes we stated that orig- 
inal subscriptions would expire at 
the end of December, 1976. Due to 
unforeseen problems in the develop- 
ment of an entirely new computer 
mailing system, we have extended all 
subscriptions to January, 1977. All 
those customers whose subscriptions 
will, at this time, expire should 
receive a notice approximately one 
month prior to the expiration date. 
The notice will describe both the 
terms and cost for an additional one 
year subscription to Computer Notes . 
Those persons who have already 
sent in their renewal orders will 
have these entered into the computer 
during the month of December, and 
they will become effective starting 
with the month of February. If you 
have any additional questions, please 
do not hesitate to contact us. 
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Mailbox 



By David Le Jeune 

Vavtd le. Jmm aj> LLeute.yia.yit 
Colonel In the. Anmy Signal CoxpA. 

MAILBOX is a combination ama- 
teur radio store and forward system 
which uses the Altair 8800 system 
and Altair Disk Extended BASIC to 
create a fully automatic message 
storage and retrievable system. 
For the first time MAILBOX is now 
available to amateur radio opera- 
tors worldwide. 

This system gives users remote 
access to my computer via amateur 
radio teletype and the ability to 
store messages on the system disk 
for later retrieval by the message 
addressee or anyone else. It also 
provides a near real time repeater 
capability, something that has been 
seen on ham radio teletype (RTTY) , 
but never with the features provided 
by MAILBOX. 

With previous systems, usually 
implemented with punched paper tape, 
the message to be relayed or re- 
peated was entered and then the tape 
was transmitted. Unless there was 
an operator present at the relay 
station, it was impossible to back 
up the tape and retransmit the 
message. MAILBOX allows the user 
to enter a message into the system 
for relay and then ask for multiple 
transmission of that message. 



K5WNV MAILBOX SYSTEM 




There is also an editing cap- 
ability not usually found on other 
repeater/relay systems. The random 
access store and forward system has 
never, to my knowledge, been imple- 
mented on the amateur radio HF 
bands . 

MAILBOX consists of an amateur 
RTTY station interfaced to an Altair 
8800 microcomputer system. (See 
Figure 1 for a block diagram of the 
system.) Signals are received on a 
Kenwood R-599D high frequency (HF) 
receiver and demodulated by an ST-6 
RTTY frequency shift keying (FSK) 
demodulator. These signals are 
interfaced to the Altair 8800 via a 
serial I/O port. This same serial 
port keys an AK-1 FSK modulator 
driving a Kenwood T-599D HF trans- 
mitter with a 60 watt output. A 
directional antenna for 14 mhz and 
a dipole antenna for 3.5 mhz and 7 
mhz are used for both transmitting 
and receiving. Other peripheral 
devices include an Altair Floppy 
Disk system, an LA36 Decwriter II 
printer and a video console. 

The simplest RTTY station 
consists of a teleprinter, a modu- 
lator which converts received FSK 
signals to on-off keying for the 
teleprinter, an HF receiver, a 
transmitter, a modulator which 
converts the teleprinter keyboard 
on-off signals to FSK signals and 
an antenna system. Although the 
receiver must be of relatively good 
quality, the transmitter can be as 
simple as the transmitters used 



ANTENNA SYSTEM 

4 element Yagi Directional Beam 

antenna for 14 mhz 
multi-band dipole for 3.5 and 7 mhz 



ANTENNA SWITCH 



KENWOOD R-599D 
HF Receiver 



KENWOOD T-599D 
Transmitter 



ST-6 RTTY 
DEMODULATOR 



AK-1 FSK 
MODULATOR 



ALTAIR 8800 
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Decwriter II 
Printer 



Video Display 
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ALTAIR 
Floppy Disk 
System 



for morse code (CW) transmission. 
This simple station is all that is 
required to use the MAILBOX system. 
MAILBOX operates Monday through 
Friday on 14.075 mhz during the 
day and on 3.6125 mhz in the even- 
ing. Both the transmitter and 
receiver are crystal controlled 
for frequency stability. 

How the System is Used 

Eight commands, which call up 
various features of MAILBOX are 
available to the user. Each com- 
mand consists of the three-letter 
prefix WNV (the last three letters 
of my amateur radio call sign) 
followed by a three to six letter 
command descriptor. Since the 
system works in half duplex (i.e. 
neither station can transmit and 
receive simultaneously), the user 
follows each command with a car- 
riage return and then turns off 
his transmitter to await acknow- 
ledgement or execution of his 
command. 

The most commonly used command 
is WNVWRU which causes MAILBOX to 
respond with the following message: 

DE K5WNV FORT HUACHUCA ARIZONA 
MAILBOXES ARE OPEN 
FOR INSTRUCTIONS SEND MVNVINS' 
FOLLOWED BY A CARRIAGE RETURN 

The WNVWRU command is used to deter- 
mine if MAILBOX is up and running 
and to check propagation conditions 
between my station and the user. 
The response will often also contain 
"system bulletins" providing infor- 
mation on new features, scheduling 
(mine or the computer's) or other 
system information. 

The WNV INS command causes a 
detailed set of instructions on how 
to use the system to be transmitted. 
WNVDIR returns a list of MAILBOX 
users. The command WNVXXXI, where 
XXX represents the last three 
letters of a MAILBOX user's call 
sign, is used to enter a message 
into XXX' s mailbox. The MAILBOX 
system will respond to that request 
with the following message: 

"THE K4XXX MAILBOX IS OPEN" 

(Here I have assumed XXX' s full call 
is K4XXX.) All data received by 
the MAILBOX system subsequent to 
this message, and until a line 
appears containing a string of four 
or more "n's", is entered into a 
special file on disk. Upon receipt 
of the NNNN sequence, this file is 
closed and the system responds with 
a message verifying the file entry. 

To check whether he has any 
messages in the system, the user 
types the WNVXXC command with his 
call substituted for XX. MAILBOX 
returns a value indicating the 
number of messages saved under his 
call sign. To retrieve a message, 
the command WNVXXXOYY, where YY 
represents the message number to 
be retrieved, is given. 
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MAILBOX (cont.) 



If YY is a valid message 
number, the message is retrieved 
off disk and transmitted. It is 
preceded by the phrase "NEXT VIA 
K5WNV" and followed by the phrase 
"PREVIOUS VIA K5WNV" and a morse 
code indentifi cation message. 

In many instances the user may 
simply want to use the MAILBOX 
system as a near real time relay 
or repeater. Because of propagation 
conditions, a station in Florida 
and Virginia may not be able to hear 
each other, but both may be able to 
hear and work my station. The com- 
mand WNVREL causes MAILBOX to res- 
pond with 

"SEND YOUR MESSAGE TO BE RELAYED" 

and saves everything subsequently 
received in a special "RELAY" disk 
file until the NNNN sequence is 
received. Either station can then 
cause the message to be retrans- 
mitted using the WNVRPT command. 
This command always causes the last 
message entered on disk via the 
WNVREL command to be re- transmitted. 

The I/O routine also includes 
an ASCII to Baudot and Baudot to 
ASCII conversion routine, which is 
called whenever the Baudot ports 
are active. 

The main program is written in 
Altair Disk Extended BASIC and 
makes extensive use of the disk 
file handling system. All "canned" 
messages, such as the WNVWRU and 
the WNVINS messages, are stored in 
sequential files on disk, as are 
messages stored by the users. The 
current version of Altair BASIC is 
3.4, which has a neat error trapping 
capability. This has proven invalu- 
able in debugging and system opera- 
tion, since it allows the program 
to first turn off the transmitter 
if it happens to be on when an 
error occurs in the program prior 
to exiting to BASIC command level. 
In fact, if the error is of the 
non-fatal variety, the computer can 
be set to ignore it or print 
"ERROR MESSAGES" on the air to 
inform users of bad disk sectors 
or other software (and sometimes 
hardware) problems. 

The entire program consists of 
about 175 lines of BASIC and an I/O 
routine which requires about 750 
bytes. A future article will pro- 
vide a step-by-step description of 
the program. 

Conclusion 

The MAILBOX system has shown 
the fantastic real-time capability 
of Altair BASIC. Admittedly, the 
system is operating with an I/O 
port at 45.45 baud, and this allows 
a lot of things to be done between 
letters input or output to this slow 
port. However, the PEEK and POKE, 
as well as IN and OUT commands 
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make BASIC an unusually well-suited 
substitute for Assembly Language 
programming. I doubt that I would 
have attempted this if I had had to 
do it in Assembly Language. The 
Altair 8800 has proven exceptionally 
reliable operating in a somewhat 
"dirty" RFI environment. The only 
problems experienced have been with 
the Altair Disk Drive and associated 
electronics (not, however, the Disk 
Controller, which has worked beau- 
tifully) . Considering that the drive 
has operated day in and day out, 
often with the drive motor running 
12-18 hours a day, one really can't 
complain. 



Maintenance turn around time 
between Albuquerque and Ft. Huachuca, 
AZ has been unbelievably fast, due 
in large part to the efforts of 
Wayne Cronin, MITS 1 resident disk 
repair genius. Writing the program 
and putting it on the air to watch 
the reaction of regulars on the 
14.075 mhz autostart frequency, who 
are rarely turned on by "new fangled 
computers", was a lot of fun. So, 
if you have an amateur radio RTTY 
station or know someone who does, 
listen on 14.075 mhz or 3612.5 khz, 
or better yet, give the system a try 
by sending one of the commands des- 
cribed in this article. 
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MAILBOX Program 

WIDTH 73 

CLEAR 350 

S*~" 

POKE 857773.1 

FOR 1 =0TO5 i READP* < I > S NEXT I 

DATA BADly BAD2? BAD3? BAB4? BADS. BAD6 

DIM C*( 17) v ID* (14) *NA*< 11 ) ?L$(8) , I*(49) 

DEE I NT A-Z 

B 1 = 857776 J BO- 857777 J DO- 857772 ;BF^ 857756 

POKE BFs-1 

CW-45 

»D=CU* ■. 66 % DU*CW* * 88 UiA~0W#2 ♦ 09 

FORK =0T 049 

READI*<!\> 

NEXTK 

HA 1 A "■■ !> & ? "• ? / y <■ y <• y v y * y * y / V •:- y '~ y — y 7 y — V <■ y / y * y . y ^ y -■ y / y 7 y / y / 
DA FA— y « y > y — ? * » 7 ? ~ y — ? <■ y t - « «. y / ? / y 7 y / f / ? / t / 
D A T A / •> / y / y 7 y 7 ? / y 7 

ON ERROR GOTO 2350 

FOR 1=0 TO 17 

READ c*a> 

NEXT 

DATA WRU y REL y UNV y QST y E I'D y FFC y SDZ y UAR y WPX y RAW y HAB ? SRG t NSR y DXR 

DAT A I N S y D I R y R P T y C U I D 

FOR 1=0 tO 14 

READ IB* CD 

NEXT 

D ATA D All... Y t R E I .. A Y ? K 5 W N y Q S T y K 4 E I D y W 6 F F C ? W8 SDZ r KS U A R y W B 6 W P X 

DATA W6RAU y W1.HAB •> K6SRG y WB0N8R y K4DXR y INSTRU 

LI*="NNNNN" 

L2*="NEXr VIA K5WNU/7" 

L3*"» PREVIOUS VIA K5WNM/7" 

1.4*- "DE DAVE K5UNV/7" 

D I M I D (14) 

FOR 1=2 TO 13 

PRINT ID$fI)y 

INPUT ID(I) 

NEXT 

poke BIyl 

POKE DQvO 

i...ine:i:nputi$;if instrci*? »<" >>othen 2290 

IF LENCi:*)<4 THEN 1420 

W==INSTR(I«, "WNV" > 

IF U>0 THEN 1470 

GOTO 1420 

I $ a M I D * ( I * y U J r 3 , 7 5 I J 1 * « I... E F T * ( I * sr 4 ) J F R J = T 1 "7 

I F I N 8 T R ( J 1 $ r C % ( J ) ) > T H E N 150 

NEXT J 

ON J+l G08UB 1540y:i.590yl810yl810yl810yl810ylS10yl810 

ON J-7 GOSUB 1810yl8:l.Oy:l.810yl810yl810yl810y21AOy2090 

ON J -15 GOSUB 2080-2280 

GOTO 1420 

GOSUB 2390 

CLOSE i; OPEN "I" ?!? "WRU" 

U EOFCl) THEN 2430 

LINEINPUT #1 r I** PRINT I* 

GOTO 1560 

P K E B I y % 9 K E B » 1 % U T y 1 J P R I N T 8 * 

PRINT "SEND MSG TO BE RELAYED " tPRINT JOUTO >0 JPOKE BOrO 

POKE BIjUCLOSE 1 

OPEN "0" ,1 y "RELAY" 

LINE INPUT ISSIF LEN(I$X4THEN 1650 

PRINT *1»I* 

IF INSrR<I*» "NNNN" )=0 THEN 1650 

CLOSE IS MB*"*" RELAY" 

GOSUB 2390 SPRINT 

FRINTL2* 

OPEN "I"? I? MB* 

IF EOF (.1.5 THEN 1780 

LINE INPUT #1 y0$ 

GOSUB 2650 

IFY>0THEN 1720 

PR INTO* 

GOTO 1720 

close i Continued on Page Eleven 
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MAILBOX Program (cont.) 



1800 
18:1.0 
1820 

1840 
1850 

1860 
1870 
1880 
1890. 
1900 
1910 
19 20 
1930 
1940 
1950 
I960 
1970 
1 980 
1990 
2000 
2010 
2020 
2030 
2040 
2050 



2090 

2100 
2110 
2120 
2130 
2140 
2150 
2160 
2170 

2.1.80 

2190 

2200 

2210 

2220 

2230 

2240 

2250 
..,.■■) - ? ... 



2300 
2310 
2320 
'3 3 30 



2380 
2390 
2400 
2410 
2420 

2430 
'.."■ /i q i') 

7450 
2460 
2470 
2480 
2490 
2500 
2510 
2520 
2530 
2540 
2550 
2560 
2570 
2580 
2590 
26O0 
261.0 
26 20 
2630 
2640 
2650 
2660 
2670 
2680 
2690 
2700 
2710 
2720 
2730 
2 7 4 
2750 
2 7 6 



PR I NT!... 3$ 

GOTO 2430 

I2*™MID*Cl'*y4»l'} . 

IF 12*= "I" THEN 1940 

IF I2* = "C." THEN 2230 

IF I2$<>"0" THEN 2250 

K ~ V A I... C M t. 0* < I * y-S ) ) i I F K > I D (. J ) T H EN 19 1 

IF K'=0 THEN 1910 

Ka=K~1. 

K«=MIDt(STR*<K)y2) 

MB*« I p* ( J > +K*i CLOSE 1 

GOTO 1690 

GOSUB 2390 

PRINT "THERE IS NO MESSAGE " K "FOR "ID*<J) 

GOTO 2430 

K*-.STR* ( ID < J) ) ! Ill ( J ) = ID < J ) .+ 1 

K$™Min*0<*v2> 

M IB * •■" I Ii * < - J ) + K* i K * = I D * i J > 

GOSUB 2390 t PRINT "THE "ID$(J>" MAILBOX IS OPEN " t OUTO ? 

POKE B I pit POKE B0»0 

CLOSE 1. 

OPEN "0 "i-lv MB* 

LINE INPUT I*? IF INSTR<I*y "NNNN" >>0 THEN 2050 

IF LEN(I$)<4 THEN 2010 

PRINT*! , I * 

GOTO 2010 

CLOSE 1. 

GOSUB 2390 t PRINT "THE MESSAGE FOR "K*" HAS BEEN ENTERED" 

GOTO 2430 

M B $ » " R E L A Y " J C L S E 1 1 G T 1690 

GOSUB 2390 

PRINT "DIRECTORY" 

FOR 1=2 TO 13 

I F I D < I ) = T H EN 2130 El... S E P R I N T I D * ( I ) y I D ( I ) v 

NEXT 

PRINT J PR INTL. 4* 

GOTO 2430 

HB$=' INSTRU" 

GOSUB 2390 J PRINT 

CLOSE liOPEN " I " » 1 (MB* 

IF EQF(l) THEN 2220 

I... I N E I N P U T # 1 * I * % P R I N T I * 

GOI'O 2190 

GOTO 2430 

I- R IN T L * ( ) % GO SU B 2 3 9 '; P R I N T J P R I N T I D $ < J > " HA S " I B < , J ) " ME S S A G E S * " 

PRINT J GOTO 2430 

PRINTL*(0") JGOSUB 2610 SPRINT SPRINT "COMMAND NOT UNDERSTOOD" J 

RI NTS GOTO 2430 

OUT Or 1 5 GOTO 2430 

P K E B I y i P K E BO •/ 11 U T ()< 1 

LINEINPUF 1*3 IF INSTR(I*y " i " )>0 THEN 2330. 

IE INSTRfiii "BK") THEN 2340 

GOTO 2300 '■■'••::''. 

GOSUB 2430IP0.KE BI y 1 SPOKE BOyOIGOTO 1420 

P K E B I ? 1 t P K ! : : B y 1 U 7 ? i G T .1. 4 2 

IF ERR=53 THENRESUME 1010 

IF ERR -62 THENRESUME NEXT 

0U I 0?0 

ON ERROR GOTO 

POKE Bis- OS POKE BO v 255 

OUTOpl 

FOR I=0T020SWAIT0v 128? 128 J OUT 1 *>31 -NEXT 

RETURN 

PR i'.ti ]'!... 1* J GOSUB 2470 

PRINT 

p r i n T t p o k e B » O't ou T . I P O K E B I r 255 

RETURN 

WAIT0yl28y .12S:0UT1»27 

FOR I = 010300 I NEXT I . 

F0RU--0T040 

1 1- 1 * i U ) :: = " -' " T H E N I = D ALT. S E I F I * ( U > ••- * . " T H E N I ~ D D E L £ 

0UT0»9 

FORK-OTOI 

NEXTK 

OUT On 1 

FORK=0TOJ 

NEXTK 

J--DU 

NEXTU , ;...-.■ 

FOR 1 =010100; NEXT I 

RETURN .. ,..-::■. , . • 

POKE BO f 1 J POKE Wlj J OUT y I % RETURN 

PRINT JFOR G = l TO 71 JPRINT" ■•"5 { NEXTG I PR IN T t RETURN 

F R G = 1 T 2 t P R I N T " - " * I N E X T G t R E T U R N 

F R G = 1 TO 20 J P R I N T " " j S N E X T I R E T U R N 

Y=IN3 r R (0$ ? " YY" ) I 1 FY>0 THE NRE TURN 

X = [ N S T R ( * y " X X " ) : I F X- T H E N 2 7 8 

I FX- IT HEN 2720 

F0RJ=XT01SiEP-l 

I F M I D $ ( * v J y 1 ) = " " T H EN 2720 

NEXTJ 

,1=1 

F0RK-=J+1T0L.EN(0*5 

I F MID * C * r K y 1 } ~ " " T H E N 276 

NEXTK 

K = L.EN(0$) 

* ■■■■ L F F T * ( * y J > + M I D * < $ t K f .!. ) 



DA'tjOTG 7:40 
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HAM . 

on the side 

By Wayne Cronin 

In this issue of Computer Notes 
Dave Le Jeune has written an article 
on his MAILBOX system. Dave has 
done a fantastic job putting together 
an advance RTTY store and forward 
system. His detailed article in- 
cludes a BASIC source listing of the 
control program for those of you 
ambitious enough to set up a similar 
system. (Hopefully, it will also 
encourage more hams to write articles 
for us describing their own projects.) 

Speculation on the Computer Repeater 

If you would like to get into 
computers but don't have the time 
or money to put together a system of 
your own, maybe you can inspire your 
local repeater group to add a com- 
puter to its machine. 

An example of this type of 
system is the two-meter computer 
repeater now under construction here 
in Albuquerque. Five local hams are 
conspiring to put up a new repeater 
with 6800-based computer power. 

The repeater will operate as 
a normal voice relay until tone 
commanded to enter the computer 
mode. In this mode traffic on 
the input frequency will not be 
repeated to the output frequency. 
Input will consist of commands to 
the system monitor in Baudot coded 
FSK. The output frequency will be 
under control of the computer and 
will be busy only when the computer 
generates output data in response 
to user input. Another tone command 
will return the system to the stan- 
dard repeat mode. 

With suitable interface devices 
the computer will be capable of 
monitoring the repeater and log 
status information for the use of 
the key voltages, currents and 
time of measurement. If any of 
these parameters are outside a pre- 
defined tolerance range, system 
software will shut down the repeater 
and alert the control operator. 
Security of the repeater site will 
also be monitored. Analog to digi- 
tal converters monitoring descrim- 
inator voltage and limiter current 
can be read by the computer, and 
their values relayed to the user 
give an indication of frequency 
error and signal strength. 

Other system commands will 
allow users to store messages for 
other users in reserved memory 
areas, run standard software pack- 
ages from a PROM library or enter 
programs from their own terminals. 
Since the system will not have 
access to a mass storage device, 
users will have to provide their 
own program storage on cassette 
or paper tape. (continued over) 
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Cell Research (cont.) 



All of this data is recorded 
by using a highly sophisticated 
video system in conjunction with 
the microscope. A microthermister 
and related electronics are also 
used for temperature monitoring 
and control to within 0.1°C. The 
video signal is analog and digitally 
processed to provide an enhanced 
image. The video signal is recorded 
on VTR. Mixed with the video signal 
is the data in digital form for 
temperature, pressure and time. 
Later, the video tape is played back, 
enhanced and sliced, then observed 
on the monitor. Prior to develop- 
ment of the Altair system, the cell 
deformation data was hand punched 
on IBM cards and walked across cam- 
pus to the Computer Center's IBM 
370 for data processing. 

Initially, rthe Altair computer 
was equipped with just the basics- 
one 4-slot motherboard, 4K of mem- 
ory and one SIO board. To interface 
the Altair to the experimental sys- 
tem required much expansion. The 
motherboard was replaced with a 16- 
slot board. A Digital Equipment 
Corporation Decwriter was purchased 
and successfully interfaced to pro- 
vide for programming and limited 
data acquisition. Some revision 
was needed on the MITS SIO board to 
accomodate the Decwriter. An 8K 
memory board was installed with 
future plans to include a 16K memory 
board. A National Multiplex Cor- 
poration digital data recorder was 
used for storage of programs and the 
assembler. For handling large vol- 
umes of data, a double-density dual- 
drive floppy disk system from Mid- 
west Scientific Instruments was 
interfaced using the Processor Tech- 
nology 3P+S I/O board. This pro- 
vides over 1.2 megabytes of data 
storage allowing data input to be 
immediately dumped on the disk and 



subsequently processed. Investiga- 
tion is underway to see if the soft- 
ware might be structured to allow 
for limited processing on a pseudo- 
time shared basis with the data 
dumping activity. 

Data accuracy was improved by 
a Video Vector Calculator (WC) , 
designed and constructed by Vista 
Electronics in California. It's 
used to superimpose two cursors on 
the video picture. Using manual 
controls, the cursors are positioned 
at the limits of the deformed mem- 
brane and the VVC determines the 
distance between the cursors scaled 
in micron units. This data is pro- 
vided as an LED digital readout as 
well as an analog signal. Thus, the 
WC provides direct and accurate 
data with less than 1% error. How- 
ever, the analysis still involved 
punched cards and use of the IBM 370 
in the Computer Center. At this 
point the Altair was explored for 
possible use. 

Some custom interfacing was 
done in developing an A/D system to 
extract maximum resolution from the 
video-analog signal. A Datel 12- 
bit A/D converter is the core of 
the custom interface card. It pro- 
vides a maximum 40 ysec. conversion 
time for the 12 bits of straight 
binary parallel output. The appro- 
priate logic was included for multi- 
plexing two bytes to the data bus 
via two "hardwired" sequential 
addresses. The LSB byte contains 4 
bits of data information and one 
flag bit signaling end of conversion. 
Currently, a floating point arithmetic 
scheme is used to handle the double- 
word data. 

The software is an 8K Basic 
with the appropriate subroutines to 
handle the A/D and floating point. 
At a later time a more extensive 
assembly language program will be 
developed in conjunction with a 
floating point processor board. 
This will perform a fifty- fold 



HAM (cont.) 



When (and if) the system 
becomes completely operational, I 
will write a more detailed descrip- 
tion for CN and provide a listing 
of the control routines. 

Nets 

K5WNV has informed me that 
there are three active RTTY auto- 



speed increase in arithmetic oper- 
ation and a significant reduction 
in memory requirements. The computer 
results are hand copied on the Dec- 
writer at a convenient time. In 
the interim it is stored on disk. 

Plans for future expansion in- 
clude interfacing an incremental 
plotter to the system for immediate 
publishable graphs. 



The Altair has proven to be a 
very reliable computer for special- 
ized research application with ex- 
cellent expansion capabilities. Its 
compact size and price advantage 
make it an attractive unit to the 
individual researcher whose budget 
limits access to the larger compu- 
ters. We are seeing increasing 
interest in the microprocessor as 
a useful laboratory instrument 
throughout the university research 
community. The limitations of 
speed and word length necessitate 
some unique and, at times, cumber- 
some provisions to handle the data 
load. However, the general concen- 
sus is that these constraints will 
soon be historical, because now the 
microprocessor is rapidly closing a 
long existing gap in basic research 
instrumentation. 



start nets devoted almost exclusively 
to computers. Nationwide users can 
try 14,075. East Cost users 3637.5, 
and West Coast users meet on 3612.5. 
All nets use narrow shift. 

I'm still looking for informa- 
tion on any other computer nets 
that may be operating. If you want 
to start a new net, let me know when 
and where. 



Mailbox Program (cont.) 



2770 GOTO 2660 

2 7 3 F R I ■= T 5 ? J = I N S T R ( * * P S ( I ) > 

2790 IF.D-OTHEN 2820 

2800 NEXT* 

2810 RETURN 

? 8 2 I F J ~ 1 T h E N :l. * = " " E L 8 E 1 * = L E F ' f * ( $ , J ■••• :!. .> 

2830 IFLEM < 0* ) -,..H-LEN ( P$ ( I ) ) - 1 THEN02*= " " Et..SE02*~-M 

2840 $ ~ I. * + " - C E H S R E D •■■• " f 2 * 

2850 GOTO 2780 

OK 



LUKU* »J+I..EN<P* 



Altair 




Alfred R. Howes 
Box 342 Boyce Rd. 
Glenford, NY 12433 



Dick Fehriback 
5779 Blaine SE 
Grand Rapids , MI 
(616) 455-3138 



49508 



Mr. Fehriback is interested in 
forming a club in the Grand Rapids 
area. 

John J. Herro - W8CW 

4419 Bascule Bridge Dr., #1321 

Dayton, OH 45440 



L 



classified 

ads 

For Sale: Four 4K Dynamic Boards, 
$100.00 each, or best offer. Con- 
tact: 

Bill ! Toole 
312 West Main St. 
Emmitsburg, MD 21727 
(301) 447-2690 
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Case Study:- 



DATA RECORDING 

WITH THE ALTAI R 



By 0. E. Dial 

Recording programs from the Altair is quite easy. MITS docu- 
mentation of the BASIC interpreter provides clear instructions in the 
use of CSAVE and CLOAD. Recording data is somewhat more complex. 
It involves the use of "undeclared" memory and the PEEK, POKE, 1NP, OUT, 
and VAL instructions, in addition to the concatenation of strings. 

Existing documentation, even that contained in the many available 
textbooks on BASIC, doesn't provide sufficient information for recording 
data. Entering a lengthy data file from the keyboard is a dull, time- 
consuming, error-prone experience. To avoid this task of re-entry, we 
need some way of preserving the file in machine-readable media. We 
specifically need to know how to: 

1. Temporarily store data in the undeclared reaches of memory 

2. Record data (output the stored data and record it on a cassette 
tape) 

3. Load a file from tape (input the data from cassette to unde- 
clared memory) 

4. Decode the string (input data from undeclared memory to the 
program in which it is to be used) 

To accomplish any of these tasks requires an available region of 
"undeclared" memory, that is to say, memory which has not been revealed 
to the interpreter. When the question "MEMORY SIZE?" is asked, the 
operator should declare less than is available. The amount desired to 
be reserved for data storage (at one byte per character) should be sub- 
tracted from the total available and the difference entered in response 
to the question. The operator might also keep 2K in reserve. 

The following graphic should illustrate the importance of having an 
undeclared region of memory in reserve and the steps involved in its 
utilization. 



Wi. Vial -U a pttofaoA&oJi iyi the 

Graduate, School o£ Vubtic, A^alu at 
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Data Recording (cont.) 



1. Storing Data in Memory 

Data must first be stored in undeclared memory before it can be 
output to the recorder. Two variations of the routines which accomplish 
this will also be presented. The following routine takes the data from 
a program statement. 



10 



15 



A$=" - - - not more than the permitted statement length - - 

(Any alpha, numeric, or other symbol may be contained 
within the quotes.) 



Y=14000+LEN(A$) 

(This assumes 16000 words of memory, of which 2K are 
reserved as undeclared memory. This statement will be 
used in connection with statement 60, below.) 

20 FOR X=0 TO LENCA$) - 1 

(The "-1" is to compensate for the use of "0" in the 
array.) 

30 Z=ASC(MID$(A$,X +1)) 

(This picks off a character each time the loop is cycled, 
moving from left to right, defining the ASCII equivalent 
of each in turn. Again, the "+1" compensates for the X= 
cell of the array.) 

40 POKE X + 14000, Z 

(This POKEs the word-length ASCII equivalent of each 
character, in turn, into undeclared memory, beginning at 
14K.) 

50 NEXT X 

60 ? "YOUR DATA IS STORED FROM 14000 TO " Y "LOCATIONS." 

Two variations of this program are needed in order to: 1) permit 
entering data from the keyboard and 2) enter data from READ statements. 

a. Keyboard Data Entry . Entering data from the keyboard merely requires 
that a flag be inserted for END OF DATA and that a cumulative count be 
maintained of each LEN(A$). This permits the report of memory locations 
used. 

5 Y = 14000 

10 INPUT "DATA";A$ 

(If other than alphas, don't forget to enter in quotes.) 
20 IFA$="OUT OF DATA" THEN 100 

(This is simply a flag to end the input.) 
30 L=LEN(A$) 

(This obtains the character length of each string input.) 
40 FOR X=0 TO L -1 
50 Z = ASC(MID$(A$, X + 1)) 
60 POKE X + Y, Z 
70 NEXT X 
80 Y = Y + L 

(This is to cumulatively count the memory locations used.) 
90 GOTO 10 
100 ? "YOUR DATA IS STORED FROM 14000 TO " Y "LOCATIONS." 

b. READ Statement Data Entry . Entering data from READ statements is 
closely similar to the foregoing but does represent some new require- 
ments. 



5 Y = 

10 READ A$ 

(This could be changed to a FOR - NEXT loop if the number of 
strings of data were known, or, with an exit flag from the 
loop.) 

20 IF A$ = "OUT OF DATA" THEN 100 

(This provides a flag to end the input . ) 

30 L = LEN (A$) 

40 FOR X = TO L - 1 

50 Z = ASC(MID$(A$, X + 1)) 

60 POKE X + Y, Z 
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70 NEXT X 

80 Y = Y + L 

90 GOTO 10 

100 ?"YOUR DATA IS STORED FROM 14000 TO " Y "LOCATIONS." 

110 DATA ABCD, "A.B.C.D.", "1,0", "3.4ABCD" 

(Note the selective use of quotes and commas.) 

2. Recording Data . 

First, the CSAVE is not used in recording data. Second, while I 
have listed the basic program below, for the sake of simplicity, it does 
not include certain desirable features such as will be found in 2.1. 



10 

20 
30 



40 



FOR X = 14000 TO 16000 

(Note that this would read every word in undeclared 
memory.) 

Z = PEEK (X) 

WAIT 6, 7, 1 

(As explained in the MITS BASIC manual (p. 37), this 
reads the status of port "6", exclusive OR's bit "1" with 
that status, then AND.'s the result with "7" until a non- 
zero result is obtained.) 

OUT 7, Z 



(The stated test has been met, and work "Z" is output to 
the device via port "7".) 

50 NEXT X 

(Now the program indexes back to get the next character.) 

a. Recording a Tape Leader . It is a good practice to output a stream 

of data having the same value as a prefix to the file. Among other 

things, this provides a check on the beginning of the file of data. 

Similarly, a stream of values can be appended to identify the end of 

the file. The value selected for this purpose should not be greater 

than 255 (the maximum decimal value which can be represented in eight 

bits) for this purpose. This can be accomplished by prefixing, or 
appending, the following routine to the program in 2.0. 

100 FOR X = TO 99 

(Vary the terminal index value consistent with the length 
of leader you desire.) 

110 Z = 255: WAIT 6, 7, 1 : OUT 7, Z : NEXT X • 

(For additional information on WAIT and OUT, see the MITS 
Theory of Operation manual for the Serial I/O Board.) 

3. Load a File from Tape . 

This section assumes the file has been recorded in the manner 
stated in Section 2. 

10 FOR X = 14000 TO 16000 

(Again, less than a range of 2000 words, if unneeded.) 
20 WAIT 6, 1, 1 

(Check the status of the control port.) 
30 Z = INP (7) 

("Z" will have the value of the word input at port 7.) 

40 POKE X, Z 

(The "Z" just read is POKEd into the 14000th word location 
or memory in the first pass.) 

50 NEXT X 

4. Entering Data from Memory . 

Data is entered into undeclared memory as the binary equivalent of 
decimal numeric character representations, or, the binary of the ASCII 
code. To restore alphas, numerics, and other symbols, the data must be 
translated from its ASCII code. The CHR$ statement is used for this 
purpose. 

The following routine can be incorporated into your program to 
permit entering data from undeclared memory. 

10 FOR X = 14000 TO 16000 

20 Z = PEEK (X) 

(At this point we are reading the character in ASCII code.) 
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Data Recording (cont.) 



30 ?CHR$ (Z) : NEXT X 

(Now the character will be printed as originally repre- 
sented, i.e., before its conversion to ASCII.) 

a. Decoding the String . It's important to remember that rendering a 
string of values from undeclared memory does not ordinarily solve our 
problem of data re-entry. The string may contain numerous values which 
the operator may want to deal with individually. If this is true, some 
symbol must be inserted between each value in the string when it is 
originally stored in undeclared memory. A comma is useful for this pur- 
pose. The string may then be broken up to restore values between 
commas. Note that a comma must be used at the end of the last value and 
before the end- quote. 

Furthermore, since what is being accomplished is breaking a string 
up in to many strings with each representing a datum value, it will be 
necessary to concatenate the pieces of the broken string, restoring each 
numeric character of the datum and then change its character from a 
string to a numeric variable. The VAL instruction is used for this 
purpose. 

Since this may seem complex, perhaps an example would be helpful. 
Let's assume we have a string of data such as the following: "21, 34, 
1, 0, 345, 67.5, 21, .623,". PEEKing undeclared memory will result in 
calling the string character-by-character from left to right. In the 
process, we can break up the string containing eight data values into 
eight strings. But the newly created strings are still strings. We 
need a method of breaking them up character-by-character, letting each 
character be a string. For example, in the first datum ("21") when the 
"2" appears, give it the string name A$; and when the "1" appears, give 
it the string name B$. When the comma appears, it is regarded as a 
flag to let us know the value is completely rendered. 

Our problem then is simply to concatenate the broken string and to 
give it a new name. For example, G$ = A$ + B$. The string, G$, would 
now read "21", and this may in turn be rendered into a numeric variable 
with the VAL statement. For example, H = VAL(G$). Use of this program- 
ming technique means that we will receive a sequence of values for H, at 
least until the last comma has been received. The program can be designed 
to process each "H" as it arrives, or each "H" can sequentially be placed 
in a matrix. The program below calculates a running average and so pro- 
cesses each value as it arrives. 



290 



200 



210 



220 



230 



240 



Y = 



W 



: G = 



260 



270 



(The first two variables will be used as counters, and 
the last as an accumulator. This statement is used for 
initialization.) 

FOR X = 22000 TO 22038 

(At the time the file was recorded, a note was made of 
the exact locations which were used, thus saving time 
and storage.) 

Z = PEEK (X): IF Z = 44 THEN 300 

(The ASCII code for a comma is 44, thus if a comma is 
PEEKed, the program will branch to statement 300.) 

Y = Y + 1 

(This will count the number of characters between 
commas.) 

ONLY GOTO 260, 270, 280, 290 

(Here is the real value of the "Y" counter. The first 
character read will be directed to statement 260 where it 
will be given a unique string name, because "Y" has a 
value of "1". The second character will be directed to 
statement 270 because "Y" has a value of "2" and so on. 
Note that you must anticipate in your program the maximum 
number of digits and the decimal point, if any, which will 
be encountered in the data file. In this program the max- 
imum value is 3 digits and one decimal point; hence, the 
"ON Y" statement provides four branches . ) 

A$ = CHR$ (Z) : E$ = A$ : GOTO 400 

(Here the ASCII code is translated into the symbol it 
represents and the string character is named "A$".) 



B$ = CHR$ (Z) : E$ 



+ B$ : GOTO 400 



(The second character in the string is now broken off and 
given the name, "B$". It is then concatenated with k$ and 
given the name'E$. The program then branches to statement 
400 which indexes the loop and causes the next character 
to be PEEKed. Should that character have the ASCII value 
of "44", the full length of the datum will have been 
formed. It has two characters, A$ and B$, and the two 
concatenated are equal to E$ . ) 



300 



310 



320 



400 



C$ = CHR$ (Z) : E$ = A$ + B$ + C$ : GOTO 400 

D$ = CHR$ (Z) : E$ = A$ + B$ + C$ + D$ : GOTO 400 

(Even though this is the last possible branch, we must 
still go back and PEEK for the comma. Hence, the branch, 
instead of merely continuing to the VAL statement.) 



F = VAL (E$): Y=0:W=W+1 

(Here we change E$ from a string variable and find its 
value. We also initialize the Y-counter for its use in 
connection with statement number 250. With "W" we are 
beginning to count each datum in the set.) 

G = G + F:H = G/W 

(At this point, we are processing each datum, accumulating 
it to prior values and then finding the average at that 
point.) 

? W ; F ; G ; H ; : ? 

(This statement will print each of the values in which we 
are interested and then cause the printer to index to the 
next line.) 

NEXT X 



Finally, remember that PEEKing does not erase, so the file 
continues to be available so long as the machine is on, regardless of 
the mode of operation. This feature enables us to PEEK the same file 
as often as we may need to re-enter it into our programs. 



The use of PEEK, CHR$, VAL, and concatenation, complete the loop 
in the movement of a file from keyboard to undeclared memory, then to 
tape, then re-entry from tape to undeclared memory, and finally, to a 
program where it is to be used. The routines represent valuable exten- 
sions to the use of ALTAIR BASIC. They should provide relatively fast, 
inexpensive, durable, dependable and accurate storage for as many files 
as you may wish to save. 

Editofi'i, Note.: kltaln. BASIC VeA&ion 4.0 Includes the. capability to 
&ave. and load data. £Jtom audio caaeXtz. T-oit example., 
CSAl/E.A AaveA the. away A on ca&idtte.. The. annay can 
be iccallzd with the. command CL0AV.A. 
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Case Study:. 



ALTAIR Implementation in the Graphic Arts 



Through this article I would like to share with you an interesting Altair 
implementation in a commercial typesetting company in New York City. 
While my specific application in type production might not apply directly to 
you (or in your company), some unique aspects of this system that "got-the- 
job-done" in manufacturing and administration could prove useful. So, 
regardless of our specific businesses, many "computer novice/ businessmen" 
face similar obstacles in learning to apply small computers (under small 
budgets) in our companies. 

Before going into system specifics I'll first present a quick look at recent 
developments in typesetting technology from which to form a perspective: 

The Graphic Arts industry is comprised of newspaper and periodical 
publishers, printing firms, commercial typographers and in-plant operations. 
Although it is the tenth largest industry nationally, most of the Industry's 
businesses are small owner-operated companies. Printing and typesetting 
have historically been craft-oriented trades utilizing complex mechanical 
machinery such as: printing presses, litho cameras, plate-making, binding, 
and linecasting machines. 

Setting type used to be a highly skilled specialty involving only one person and 
a machine. The machine converted an operator's efforts directly into lines of 
type suitable for reproduction. Therefore, as a very labor-intensive activity, the 
typesetting industry was ripe for technological automation — particularly large 
volume operations such as the Government Printing Office and large 
newspapers. The first important invention was an automated version of the 
linecasting machine invented in the 1920s. It was driven by paper control tapes 
with perforations indicating which letters were to appear in a line of 
type — similarly to player piano rolls. Next came small hardwired computers 
which determined where and how a paragraph of text was divided into lines of 
equal length to form even margins. Tapes were then perforated to drive 
linecasters indirectly, replacing the operator who formerly sat at each 
machine. 

It wasn't until the late 1960s that small programmable computers (digital 
controllers) became sufficiently cost effective to find any application in the 
average typesetting business. At this time, too, a technique for producing lines 
of type photographically on film (photocomposition) was maturing. Freed from 
the mechanical limitations inherent in molten metal linecasters, these 
photocomposing machines operated at high speeds — too fast for human 
interaction but just right for those small computers. So, by 1970 several 
companies were offering standalone photocomposing machines with built-in 
digital computers controlling all machine functions and having the 
intelligence to make many decisions formerly accomplished only by hand. 

At present, the Graphic Arts industry is on an accelerated acceptance curve 
which closely approximates the general learning curve of microprocessor 
application by its vendors. Discrete-logic and microprocessor-based 
computers are now commonly found in many production tools from 
phototypesetters to text editing/input terminals. Ironically, application of small 
computers toward "office" procedures (i.e., record keeping, estimating, 
production planning, traffic control, etc.) has lagged far behind production 
uses in most Graphic Arts firms. And, far too often, the typical manager 
purchasing machinery with a small computer buried in it seldom has access to 
its computational power. 



by Barry J. Yarkon 

Vice President, PhotoSystems 
Graphicomposition, Inc. 

Introduction to Altair 

As many of you did, I first learned of the Altair microcomputer revolution in 
Popular Electronics (January 1975) . At that point I had already learned how to 
patch and how to add new subroutines to the control program resident in our 
company's phototypesetters. This was in direct, hand-compiled machine code 
(16-bit single- word instructions) into a vendor written main program — 
obviously not too productive. Many hours of home study using textbooks and 
articles had alerted me to some tantalizing possibilities minicomputers seemed 
to offer for our company: efficient text editing; text correction; file 
maintenance and data processing. But, how to proceed? And, at what cost? 
Although the time had seemed correct for computer utilization this concept 
was new to us and was possibly beyond our capabilities as a small company. 

Introduction of the Altair 8800 kit brought the project into managable 
proportions in learning and cost investment. We no longer had an excuse to 
procrastinate! 

That original 1/4-K kit, which seemed so imposing then, has grown into the 
system configuration shown in Figure 1. Central to our system is the 32K Altair 
8800 with dual Altair floppy disc drives and several interface cards. An 
original ASR-33 Teletype had been replaced with an upper & lower case 
ASCII display terminal, a used 30 cps 80-column impact printer and an 8-level 
80 cps paper tape reader. The tape reader is interfaced with a parallel card 
while the terminal and the printer simultaneously share one serial card. For 
printing, the system is switched (on the I/O card) for 300 baud; when no 
printout is needed, we switch the card and the terminal back to 4800 baud and 
turn off the printer's motor. By the way, the terminal is leased for 12 months at a 
cost of only $72 per month — we plan to Upgrade at term for another with 
internal editing buffers. 



Special Interlace Hardware 

Although I felt capable of learning to tackle the software components of the 
system, we required a custom interface design to provide two major functions-, 
allow the Altair to transmit "finished" text to our phototypesetter's parallel 
port; and, secondly, to enable existing text tapes to be read by their special, 
bar-coded tape scanner into the Altair and eventually onto disc. Fortunately I 
had met another Altair user, Ronald Boley (Baron Technical Products) with 
the skill to design and install the interface hardware. Ron's "box" consists of a 
single serial card in the Altair 8800 communicating with a transmit/receive 
RS232C device over 100 feet of cable at 1200 baud. Figure 2 shows the setup 
transmitting from the Altair through the box to the phototypesetter. The 
handshaking scheme allows the phototypesetter to demand a character at a 
time (typically 16-18 mS) from the Altair which merely treats it as a rather slow 
line printer. I "send" whole strings by CONSOLEing to the serial card's 
address, PRINTing a string of text and CONSOLEing back to terminal 
address, echoing on the display, and so on. 

When the switch (in Figure 2) is thrown to Dual Image® reader, the system now 
has control over the bar-coded tape scanner allowing old job tapes in 6-level 
parallel code to be received at the box and sent in serial discipline to the 
Altair — and onto disc. 




Figure 1 . System configuration at Graphicomposition, Inc. 
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5 CLEAR 2048:NULL6:DIMT(64) :S=32:SS="" 

!0 PRINT"** CREATE A DISC FILE FROM DUAL IMAGE TAPE(S)" 

12 INPUT"** FILE- TO BE CREATED"; YS 

14 INPUT"** DISC DRIVE NO."; X 

15 FOR I=0TO6:?:REM ITS TABLE 
20 READ TCI) i NEXT I 

30 DATA 96,42,69,51,35,60,65,36,32 

31 DATA 43,83.109,73,56,85,55,34 

32 DATA 39,68,45,82,52,74,37,78 

33 DATA 44,70,60,67,110,75,62,84 

34 DATA 53,90,40,76,124,87,50,72 

35 DATA 64,8.9,54,80,48,81,92,79 

36 DATA 57,66,64,71,59,123,126,77 

37 DATA 46,88,49,86,94,125,127 
40 0PEN"R",1, Y$,X 

50 FOR I = 1 TO 200 

100 A=INP(6I ) 

112 IF A=47 THEN 300' *ST()PCODE 

115 A=T(A): REM TTS TBL 

120 IF A=123 THEN S=0 : GOTO] 80 

125 IF A=125 THEN S=32: GOT0180 

126 IF A=34 THEN SS=S$+CHRS < A)+CHR$ ( 1 3)+CHR$( 1 0) :PRINT:G0T0.1.94 

127 IF A=42 THEN 400' CALL STORE 

128 IF A=!27 THEN 190' IGNORE DELETES! 
130 IF A<=90 AND A>=65 THEN A=A+S 

180 A$=CHR$(A) 
185 S$-=S$+A$ 
190 NEXT I 
194 GOSUB 450 
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Figure 2. Detail of Altair/phototypesetter interface. 



Figure 3. Disc Extended BASIC (ver. 3.4) listing of the conversion routine. 



One interesting problem arose here due to the 6-level TeleTypeSetter code 
used on existing paper tapes. As 7-level ASCII is the standard for the Altair, 
terminal and printer each frame received from the tape scanner is first 
converted to an octal ASCII equivalent by the routine shown in Figure 3. 
Notice the routine must keep track of shift/unshift codes and add 32octal to 
uppercase ASCII letters to make the lowercase ASCII codes! 

Disc Extended BASIC (ver. 3.4) has proven to be a very powerful tool in this 
application. The ability to control I/O ports and board status allowed a 
minimum of interface software. Intrinsic string manipulation commands 
(particularly INSTR) and file management functions have enabled me, self- 
taught remember, to write custom text editing and file manipulation programs 
that give my company a competitive advantage in the typesetting 
marketplace. Why, there are still functions in BASIC I haven't learned to use 
yet awaiting future application programs. 

The Products 

Graphicomposition services industrial and direct publishing accounts with art, 
design, typesetting and mechanical assembly. Figure 4 shows specimens 
from typical recent projects dealing with^Tfo^pub1il*fier§ i "promotional 
literature, i.e., catalogs, price lists, order forms, direct mail advertising: Our 
competitors can purchase (relatively expensive) equipment to do "electronic 
editing" of projects like these — our advantage is the ability to maintain small 
databases and to massage existing data into new products. Without this 
capability the client assembles each product from scratch and pays to typeset 
each product even though much of the information is the same among them. 
The largest single cost for typesetting services is the input labor cost — is it the 
same in your business? 



Our client now prepares only one manuscript, proofreads just one set of proofs 
and receives all three lists for a substantially lower cost with less effort. This is a 
marketing advantage that might apply to your business too. It is especially 
valuable in repeatable or periodic applications. 

Future Coals 

Production goals center on refining and expanding our library of job oriented 
file manipulation programs. We have found the ease of including prompt-lines 
on the terminal allows a program to guide input operators through each task. I 
would like to create a training package for our company, on diskette, to drill 
new employees in typesetting terminology and input procedures. 

There has been little that we have thought to do that could not be handled by 
the system. For example, I have a model retail pharmacy dispensing/record 
keeping program that works well on this configuration. It requires a multi-user 
BASIC to be practical though. In response to continuing "can-we-do-this?" we 
now have a composition estimating program which steps sales people through 
the many steps in analysis and cost estimating of typesetting projects up for 
bidding. Naturally, this leads to other "can-we's" in management tools such 
as: billable time keeping, productivity analysis, production traffic and 
scheduling, accounting, etc. 

I expect an administrative Altair will be our next short term goal. It seems,-at 
this stage in our development, the limits are only programming time and 
imagination! 



To dramatize the levels of benefit using a flexible, small computer system refer 
to the specimens. The "master" book list is a product just as each of the two 
others. Previously our client prepared seperate manuscripts for each of these 
three and then sent them out for typesetting. Of course, the client paid for three 
jobs. Yet, looking more closely into the production cycle, you'll appreciate that 
the client also proofread each one, corrected each, sent each back to the 
typographer who then corrected each job and ran a second final proof — which 
the client then reread, etc. Our point is all of the information for the second two 
jobs already exists on the first list! We sort each of the other two from the first 
without incurring additional input labor cost. And, when we make corrections, 
deletions or additions to the master job we actually correct each of the two 
others automatically. 



BIOGRAPHY: Barry J. Yarkon, vice president of Graphicompsoition, Inc., a New 
York City based commercial typesetting firm, is active in educational projects as well. 
A frequent writer and speaker in the Graphic arts industry, Mr. Yarkon teaches 
Photocomposition tor Managers at the Evening School of Printing Industries NY and 
gives Minicomputer Programming lor Composition, a two-day seminar series, in 
major cities around the country. 

His well-travelled Altair 8800 had "logged almost 30,000 miles in airplane bellys" 
before being supplanted by a more portable 17K Altair 680b running 8K BASIC. 
"The Altair/BASIC combination has been an exceptionally effective tool in 
motivating newspaper and typesetting audiences to 'get their feet wet' in computer 
usage." 
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Figure 4. Specimens: typical booklist projects. 
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Ramblings from Ed Roberts 



Thanks — every other month this 
year has broken all previous sales 
records at MITS. This is particular- 
ly remarkable when you realize 
sales for 1975 were three times 
the level of 1974. This rapid 
growth is attributable to a number 
of things , but, the most important 
factor is the support and loyalty 
of our customers. Our customers 
have been vocal and unhesitating 
JLn their criticism whenever we 
erred, but have been equally 
supportive in positive advice and 
in purchasing MITS products. All 
of us here at MITS and at the 
Altair dealerships are deeply 
appreciative of your support and are 
pledged to continue to improve both 
the quantity and quality Of our 
products and service. 

Charlatans. Rip-Off Artists and 
Other Crooks 

It may be a sign of the maturing 
of our business but there seems to 
be a proliferation of crooks and 
other devious operators in the 
small computer business. Let me 
address several of the "funny" deals 
individually. 

1. Mail Order Fraud-recent ly an 
advertisement appeared in one of the 
trade journals advertising 13 used 
Alt airs for sale. Based on informa- 
tion we have received this is a sham 
and the postal authorities have been 
notified. There have been a number 
of similar frauds called to our 
attention. The solution is don't send 
money to any group, company or in- 
dividual whose reputation you can't 
verify in detail. The local Better 
Business Bureau is a useful starting 
place for this verification. 

2. S-100 Bus - There is now an active 
attempt by a small group to steal 

the Altair bus. They are attempting 
to do this by changing the name so 
that they will not have to give 
recognition to MITS for its pioneer- 
ing efforts in the small computer 
field. It is clear that the Altair 
bus is well established and the 
changing of the name to S-100 does 
not clarify or improve any situation 
for the user. It only helps the 
advertising copy of our competitors. 

The Altair bus was designed at 
least a year prior to the appearance 
of any of these competitors. The 
correct name for the Altair bus is 
simply the Altair bus, it is not the 
Altair/ IMSAI or the Altair/Polymor- 
phic or the S-100, etc. Your help 
in stopping this sham will be 
appreciated, I hope you will identify 
the use of any name other than the 
Altair bus for what it is. 
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3. Phony Altair Dealerships: An 
Altair dealership is unquestionably 
the most desirable dealership in the 
small computer field. As many of 
you know these dealerships are 
given out very selectively and 
only to groups which have made major 
commitments to the support of Altair 
users. Any Altair dealer who doesn't 
support his customers is cancelled. 
I feel that whenever you purchase a 
MITS product from a dealer that you 
should have a warm feeling that if 
you have any problems your dealer 
will solve them for you. 

Which brings me to the major point: 
there are a number of dealers which 
claim to be Altair dealers, but in 
reality are not. A few even have 
some obsolete "bootlegged" MITS 
products. In order to assist you 
in distinguishing the real Altair 
Computer Centers from the phonies 
I am including a list of our 
current Altair dealers. If a 
dealer is not on this list and 
claims to be an Altair dealer, 
caveat emptor. *f you ever have 
any problems with a product pur- 
chased from one of the following 
dealers you can feel confident of 
having continued dealer as well 
as factory support (if not, let 
me know personally). 



Altair 

Computer 



ALTAIR COMPUTER CENTER 

4941 East 29th Street 

Tucson, Arizona 85711 

602/748-7363 

Mr. Arroand Sperduti 



COMPUTER PRODUCTS UNLIMITED 

2412 Broadway 

Little Rock, Arkansas 72204 

501/371-0449 

Mr . Harry Mohrmann 



COMPUTER KITS 

1044 University Avenue 

Berkeley, California 94710 

415/845-5300 

Mr. Pete Roberts 



THE COMPUTER STORE 

820 Broadway 

Santa Monica, California 90401 

213/451-0713 

Mr. Dick Heiser 



GATEWAY ELECTRONICS 
2829 West 44th Avenue 
Denver, Colorado 80211 

303/458-5444 

Mr. George Mensik 

THE COMPUTER STORE, INC. 

63 South Main Street 

Windsor Locks, Connecticut 06096 

203/871-1783 

Mr. George Gilpatrick 



MARSH DATA SYSTEMS 

5404B Southern Comfort Blvd. 

Tampa, Florida 33614 

813/886-9890 

Mr. Don Marsh 

THE COMPUTER SYSTEMCENTER 
3330 Piedmont Road 
Atlanta, Georgia 30305 
404/231-1691 
Mr. Jim Dunion 

ALTAIR SOFTWARE DISTRIBUTION CENTER 
3330 Peachtree, N.E., Suite 343 
Atlanta, Georgia 30305 
404/231-2308 
Mr. John Hayes 



CHICAGO COMPUTER STORE 

517 Talcott Road 

Park Ridge, Illinois 60068 

312/823-2388 

Mr. Lou Van Eperin 

THE COMPUTER STORE, INC. 

120 Cambridge Street 

Burlington, Massachusetts 01803 

617/272-8770 

Mr. Sidney Halligan 

THE COMPUTER STORE OF ANN ARBOR 
310 East Washington Street 
Ann Arbor, Michigan 48104 
313/995-7616 
Mr. Peter Blond 

THE COMPUTER ROOM 
3938 Beau D'Rue Drive 
Eagan, Minnesota 55122 
612/452-2567 
Mr. Dale Hagert 

GATEWAY ELECTRONICS 

8123-25 Page Blvd. 

St. Louis, Missouri 63130 

314/427-6116 

Mr. Al Elkins 

ALTAIR COMPUTER CENTER 
2301 Cornhusker Highway 
Lincoln, Nebraska 68504 
402/466-1853 
Mr. Gary Green 

THE COMPUTER SHACK 
3120 San Mateo, N.E. 
Albuquerque, New Mexico 87110 
505/883-8282 
Mr. Pete Conner 



THE COMPUTER STORE 

269 Osborne Road 

Albany, New York 12211 

518/459-6140 

Mr. Charles Olds 

THE COMPUTER STORE OF NEW YORK 

55 West 39th Street 

New York, New York 10018 

212/221-1404 

Mr. Robert Osband 



ALTAIR COMPUTER CENTER 
Opening soon 
Dayton, Ohio 
513/252-6785 
Mr. John Potter 



ALTAIR COMPUTER CENTER 

110 The Annex 

5345 East 41st Street 

Tulsa, Oklahoma 74135 

918/664-4564 

Mr. Ray Coons 



ALTAIR COMPUTER CENTER 

8105 S. W. Nimbus Avenue 

Beaverton, Oregon 97005 

503/644-2314 

Mr. Richard W. Landon 

BYTE ' TR0KICS 

Suite 103, 1600 Hayes St. 

Nashville, Tennessee 37203 

615/329-1979 

John & Stan Morrow 

ALTAIR COMPUTER CENTER 

Suite 206 

5750 Bintliff Drive 

Houston, Texas 77036 

713/780-8981 . 

Mr. Robert Burnett 

ALTAIR COMPUTER CENTER 

Computers-To-Go 

6223 West Broad Street Rd. 

Richmond, Virginia 23230 

804/358-2171 

Mr. Walter Witschey 



MICROSYSTEMS 

6605A Backlick Road 

Springfield, Virginia , 22150 

703/569-1110 

Mr. Russell Banks 

ALTAIR COMPUTER CENTER 

(The Computer Store) 

Suite 5 

Municipal Parking Bldg. 

Charleston, West Virginia 25301 

304/343-1360 

Mr. Stephen Payne 
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8800 Software TidBlTS 



By Mark Chamberlin 

In order to provide better 
support to the full line of Altair 
I/O boards and devices, the device 
address defaults and sense switch 
settings have been changed. Ver- 
sion 4.0 of Altair BASIC, the new 
Multi-Boot PROM and all future 
releases of 8800 software will 
support the new conventions. 

Device Address Defaults 



Device 


Channels 




(octal) 


SIO (A,B,§ C) (Rev i) 


0,1 


LINE PRINTER 


2,3 


88PIO 


4,5 


ACR 


6,7 


DISK 


10,11,12,13 


2SI0 


20,21 


4PI0 


40,41,42,43 


High Speed Reader 


44,45,46,47 


Sense Switch Settings 



Sense switches A8 through All 
are encoded to indicate the load 
device, and switches Al 2 through 
A15 are used to indicate the ter- 
minal device. The codes are 
shown in the table below. 

Examples: 

1) To load BASIC from an ACR and 
come up talking to an SIOC, 
switches A8, A9, and A12 would 
be raised. 

To load BASIC from a Teletype™ 
connected to a 2SI0 and come up 
talking to the same Teletype™, 
all switches would be down. 



2) 



NOTE: 4.0 BASIC recognizes octal 
16 as an indication of a non- 
standard board address. (See the 
4.0 BASIC Manual for further de- 
tails.) Non-standard board ad- 
dresses are not supported by the 
Multi-Boot Loader or the new check- 
sum loader. 



The New Checksum Loader 

The checksum loader has been 
changed to support the new device 
address defaults and sense switch 
settings. 

If loading is proceeding 
properly, the Interrupt Enable 
light will remain off. Should an 
error occur, the Interrupt Enable 
light is turned on, the ASCII code 
for the error is stored in loca- 
tion 0, and the error code is sent 
to all standard terminal devices. 
The error codes are: 

C-checksum error- -the computed 
checksum and the checksum on the 
tape are not the same. 

I-Invalid load device — sense 
switches A8-A11 do not indicate 
a standard load device. 

M-Memory error- -a bad memory loca- 
tion or ROM has been encountered. 
The address of the "bad" location 
is stored in 1 and 2. 

0-Overlay error — an attempt was 

made to load into the memory 

page on which the checksum load- 
er resides. 



The Multi-Boot PROM (MBL) 

A preprogrammed 1702A PROM 
which facilitates the loading of 
all MITS software on paper tape and 
cassette is available for $45. 
When used in conjunction with an 
88-PMC, the MBL PROM Memory Card 
eliminates the need to toggle in 
a bootstrap loader prior to load- 
ing a cassette on paper tape. 



Device Type 


Octal Code 


Terminal SS 


Up 


Load 


Device SS Up 


2SI0 (2 stop 
bits) 





none 






none 


2SI0 (1 stop 
bit) 


1 


All 






A8 


SI0A,B,C (Rev 1) 


2 


A12 






A9 


ACR 


3 


A11,A12 






A8,A9 


4PIO 


4 


A13 






A10 


88PI0 


5 


A11,A13 






A8,A10 


High Speed 
Reader 


6 


A12,A13 






A9,A10 


Terminal at 
Non- Standard 
Address 


16 


A12,A13,A14 




Not 


Supported 



The MBL PROM supports the 
new device address defaults and 
sense switch settings and is 
therefore best suited for loading 
4.0 BASIC. However, it will also„ 
load 3.2 BASIC and 3.0 Package II." 
In order to load these, it is 
necessary to first set the sense 
switches according to the new 
standards and then after the 
board is in progress to reset the 
switches according to the old 
standards. 

The MBL PROM resides at 
177000 octal, which is the next to 
last 256 byte block in memory. 
To load a tape, one simply examines 
177000, sets the sense switches 
and activates the run switch. (If 
the 1/0 board being used requires 
software initialization, the 
loader should be run first and 
then the tape started. Otherwise, 
the tape should be started first.) 

To order a copy of the MBL 
PROM, contact the Marketing Depart- 
ment at MITS. 



BASIC Paper Tapes 

Have you ever encountered the 
problem of dropping the first digit 
of a line number while loading a 
paper tape of a BASIC program? This 
happens because BASIC "crunches" 
each line of the program as it is 
read in. The crunching process may 
require more than 1/10 of a second 
for a long or complex line, so a 
character may be lost from the next 
line read. 

This problem can be alleviated 
by punching some nulls (ASCII 0) be- 
tween the program lines. This can 
be accomplished by using the NULL 
command in all versions of Altair 
BASIC except 4K. In the 4K version, 
the location NULCNT must be patched. 
(See the Altair BASIC Manual for 
details.) 

However, if you have tapes 
that have no nulls between lines, 
problems can still occur. The fol- 
lowing machine language program for 
the 8800 reads a paper tape into 
memory and then punches a new one 
with nulls between the lines. 

The BASIC paper tape program was 
written to work with a 2SI0 board, 
but it can be easily modified to 
work with any Altair I/O board by 
changing the initialization and the 
I/O routines . 



The Checksum Loader Listing is shown 
on pages 20-23. The BASIC Paper Tape 
Program listing is shown on page 25. 
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4K Checksum Loader Listing 



000000' 



000004 



007400 •' 



007400' 001000 000363 



007401' 001000 000257 

007402 ' 001000 000323 

007403' 000000 000042 

007404 •' 001000 000057 

007405 ' 001000 000323 

007406' 000000 000043 



007407 •' 001000 000076 

0074 10-' 000000 000054 

007411' 001000 000323 

007412' 000000 000042 



007413' 


001000 


000076 


0074 ■:-:■- 


000000 


000003 


007415' 


001000 




007416' 


000000 


000020 


r:74i7' 


001000 


000333 


007420' 


000000 


000377 


007421 ' 


001000 


000346 


007422' 


000000 


:.:L320 


007423' 


00100C 


000017 


00742- ' 


001000 


000017 


007425' 


001000 


000306 


007426' 


000000 


000021 


007427' 


001000 


000323 


007430' 


000000 


000020 



0C7431' 001000 000061 

007432' 000000 010000' 

007433' 000000 000000 

007434' 00 i 000 000333 

007435' 000000 000377 

007436" 001000 000346 

007437' 000000 0000.17 

007440' 001000 000376 

007441' 000000 000007 

007442' 001000 000362 

007443' 000000 007612"' 

007444' 000000 007432' 

007445' 001000 000041 

007446' 000000 007654- 

007447' 000000 007443' 



007450" 001000 000006 



00100 




TITLE 4.0 CH 


00200 
00300 




SEARCH HCS808 


00400 




SflLL 


00500 
00600 




MCSSIfK START) 


00800 


SIZE== 


S-D4 


00900 






01300 






01500 




RELQC SIZE*2 


01700 






01800 


start: 


DI 


04000 






04100 






04200 




XRfi fl 


04300 






04800 




DUT 42 


05400 






05500 




CMfl 


05600 




OUT 43 


05700 






06100 






06200 




MUI fi,54 


06600 






06700 




DUT 42 


07500 






07600 


i INIT 


THE 2SID BOARD 


07700 






08100 






08300 




MUI fi,3 



08500 

08600 

08^00 

08800 
08900 
09000 

09100 

09200 

ioooo 

10200 



10400 
i 0500 

10600 

10700 
10800 

10900 



iiOOO 
11100 



11105 
11200 
11400 



DUT 

IH 
AH I 

RRC 

RRC 
AD I 

OUT 



IH 

AN I 



20 



20 



20 



SP.i SIZE*2000+$C0DE 



■Zft 



17 



JP 



L.XI 



1 fc.i K 



H.: TflyLh 



iWM MANY K 



;DNE PAGE BELOW SIZE 



■jiTURN DFF I NT ENABLE LIGH1 



i INIT 4PID AND HIGH SPEED READER 



iNDH PRDM UERSIDH ONLY IN ITS 



; OUTPUT SIDE DF 4PID 



j READ THE SENSE SWITCHES 



iSEE IF DHE OR TWO STOP BITS 



iREAD SENSE SWITCHES 



i MASK OFF LDflD DEUICE BITS 



MAKE SURE LOAD DEUICE IS UAL ID 



IT ISN'T UALID 



iMAKE H&L POINT TO LDflD 



>EUICE TABLE 



MUI 



BjU 
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4K Checksum Loader Listing Ccont.) 



007451" 000000 000000 









11600 








12110 


007452' 


001 000 


000117 


12200 


007453 ' 


001000 


000207 


12300 


007454 ■' 


001000 


000201 


12400 


007455" 


001000 


000117 


12500 


007456-'' 


00 i 000 


000011 


12600 
12700 
12900 
13000 
13100 


007457 - r 


001000 


000176 


13200 


007460'" 


00 1 000 


000062 


13300 


007461" 


000000 


007646' 




007462'' 


000000 


007446" 




007463" 


001000 


000075 


13400 


007464 " 


001000 


000062 


13500 


007465" 


000000 


007637 " 




007466 " 


000000 


007461' 




007467 '' 


001000 


000043 


13600 


007470 ' 


001000 


000176 


13700 


007471' 


001000 


000062 


13800 


007472" 


000000 


007642'' 




007473" 


000000 


007465" 




007474" 


001000 


000043 


13900 


007475" 


001000 


000176 


14000 


007476'" 


001000 


000062 


14100 


007477" 


000000 


007641'' 




007500" 


000000 


007472" 


14300 

18800 
18900 
1 9000 


007501" 


001000 


000315 


191 00 


007502" 


000000 


007636 " 




007503 ■" 


000000 


007477 " 




007504" 


001000 


000376 


1 9200 


007505 ' 


000000 


000074". '. '.:'■ . 




007506'' 


00 1 000 


000312 


19300 


007507" 


000000 


007530" 




007510" 


000000 


007502 '' 




007511 " 


OOluOO 


000376 


1 9400 


007512' 


000000 


000170 




007513" 


001000 


000302 


19500 


0075 14-' 


000000 


007501" 




007515' 


000000 


007507" 




0075 16 •' 


001000 


000315 


1 9600 


007517" 


000000 


007636 " 




007520' 


000000 


007514" 




007521 ' 


001000 


000117 


19700 


007522'' 


001000 


000315 


1 9800 


007523 '' 


000000 


007636" 




007524' 


000000 


007517" 




007525-' 


00 1000 


000151 


19900 


007526 '" 


00 1 000 


000147 


20000 


007527" 


001000 


000351 


20400 
20500 
20600 
20700 
20800 
21200 


007530" 


001000 


000315 


21300 


007531" 


000000 


007636 ' 




007532'' 


000000 


007523' 




007533 •' 


001000 


000117 


21400 


007534 " 


001000 


000006 


^1500 


007535' 


000000 


000000 




007536 ' 


001000 


000315 


21600 


007537" 


000000 


007636'' 




007540" 


000000 


007531' 





MDU 


C*B 


ADD 


ft 


ADD 


!_. 


MDU 


C A 


DAD 


B 



MODIFY INPUT ROUTINE 

MDU fi,M 
STR GET+10 



DCR a 
STfl GET+1 



I NX 


H 


MOO 


fl,M 


STfl 


6ET+4 



I NX 


H 


MDU 


fl,M 


STfl 


GET+3 



i NOW SCAN FOR KEY BY"! E ON TAPE 



scan: call get 



OP I 



JNZ 



CALL 



READ 

170 

SCAN 

GET 



MUU C.. A 
CALL GET 



MDU 
MDU 
PCHL 



H, A 



i READ AND LDAD DATA BLOCK 



READ 



CALL 

MDU 
MUI 

CALL 



>_• .• n 
8.. 



j MULT INDEX BY THREE 



;AMD ADD TD TABLE START ADDRESS 



i DATA CHANNEL ADDRESS 



; STATUS CHANNEL ADDRESS 



iJZ OR -JNZ 



i MASK 



.START OF BLOCK? 

; YES - 60 READ THE BLOCK 

i START ADDRESS? 
.;N0 - SKIP IT 

; BUILD PRDGRAM START ADDRESS 

i AND JUMP TD IT 



;GET BYTE COUNT 

jSAUE IT IN C 
.; CLEAR CHECKSUM 

iPUJ LOAD ADDRESS IN DSE 
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4K Checksum Loader Listing Ccont.) 



007541" 
007542- 
007543" 
007544" 
007545" 



00 1000 
001000 
000000 
000000 
001000 



000137 

000315 

007636" 

007537" 

000127 



007546'" 001000 000172 



007547'" 001000 000376 

007550" 000000 000017 

007551' 001000 000076 

007552 -' 000000 000117 

007553"' 001000 000312 

007554"' 000000 007614" 

007555"' 000000 007543" 



007557 - 
007560" 
007561"' 
007562 " 
007563' 

007564 "' 

007565 "' 
007566 "' 
007567 " 
007570" 
007571" 
007572"' 
007573'" 
007574'" 
007575" 

007576 "' 

007577 "' 
007600" 
007601" 
007602"' 
007603"' 
007604 " 
007605" 
007606" 
007607 "" 
007610"' 
007611" 
007612"' 
007613" 
007614"' 
007615" 
.007616' 
007617" 
007620' 
007621' 
007622' 
007623 ' 
007624 ' 
007625 " 
007626" 
007627" 
007630 " 
007631" 
007632' 
007633 ' 
007634 ' 



001000 
000000 
000000 
001000 
001000 
001000 
001000 
000000 
001000 
000000 
000000 
001000 
001000 
001000 
001000 
000000 
000000 
001000 
001000 
000000 
000000 
001000 
001000 
000000 
000000 
00 1 000 
000000 
000000 
001000 
000000 
001000 
000000 
000000 
001000 
000000 
000000 
001000 
001000 
000000 
001000 
000000 
00 1 000 
000000 
001 000 
000000 
001000 
000000 
000000 



000315' 

007636 " 

007554"' 

000353 

000167 

000276 

000076 

000115 

000302 

007614'" 

007557 -' 

000043 

000353 

0000 1 5 

000302 

007546 "' 

007567"' 

000110 

000315 

007636" 

007575" 

00027 1 

000312 

007501" 

007601" 

000076 

000103 

000001 

000076 

000111 

000062 

000000" 

007605" 

000042 

00000 1 "' 

0076 1 5 '" 

000373 

000323 

000001 

000323 

000021 

000323 

000005 

000323 

000043 

000303 

007623' 

007620"' 



007636'' 001000 000333 
007637 ■" 000000 000000 
007640' 001000 000346 
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21700 
21800 



2iyuu 

22000 
22100 
22200 
22300 
22320 
22330 

22340 
22345 



22500 

22600 



i!27UU 
22S00 
22900 
23000 

23100 



53UO 

5400 
5500 



iofc'OU 
i'3700 



380U 
13*300 



24000 

24 1 00 
24200 

24300 



24500 
24600 

24700 

24800 

24900 

25000 

25100 
25300 

25400 



GE1 



MEW 

CALL 



MOU 



r-jCiTB* IsH"H I 

L/n i n • : fuv 

CPI 

MUI 
JZ 

CRLL 



JHZ 



MDU 
CALL 



JZ 



MUI 

DB 

ierr: mui 
err: stp, 



SHLD 



EI 
ERRMES: OUT 

OUT 



JMP 



IN 



AH I 



E,H 
GET 



D,fi 



ft, L> 



:TFiRT/40 



A, "D ! 



hK'P 



XCHG 




MDU 


M,fi 


CMP 


M 


MUI 


fi, l! M 



INK 


H 


XCHG 




DCR 


c 


•JHZ 


DATA 



C,B 
GET 



SCAN 

fi, "C" 

1 

fi, "I" 

$CDDE 

1+$C0DE 



ERRMES 



;ARE THEY TRYING TO LORD 
.ilHTD DUR PAGE? IF SD SEND 
j THEM fiN DUERLfiY MESSAGE 



» GET fi DfiTfi BYTE 



.; LOAD ADDRESS TQ HSL 
i STORE THE DfiTfi BYTE 
iuiD L-'hTH biuRE Or-, r 
j JUST IN CfiSE IT DIDH''T 

;ND - WE HfiUE MEMORY ERROR 



:> YES - BUMP I fit LQfiD fiDDRh; 
.;MOUE IT BACK TG D&E 
i DECREMENT BYTE COUNT 
i MORE TO READ THEN DO SO 



;SAUE CALCULATED CHECKSUM 
i REfiD CHECKSUM OFF TAPE 



j ARE THEY THE SAME? 

.:YES - LOOK FDR NEXT BLOCK 



.;N0 - WE HfiUE CHECKSUM ERROR 

iSKIP TRICK 
jINUfiLID LOfiD DEUICE 

; STORE ERROR CODE 



: STORE BAD MEMORY ADDRESS 

;TURN ON INT ENABLE LIGHT 
; HANDLE SID BOARD 

; HANDLE 2SID BOARD 

; HANDLE 88FI0 BOARD 

; HANDLE 4PI0 BOARD 



• RhAD STATUS CHANNEL 

;MASK OFF INPUT STATUS BIT 
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4K Checksum Loader Listing (c° nt O 



007641" 
007642" 

007643' 
007644' 
007645" 
007646 " 
007647" 
007650" 
007651" 
007652" 
007653" 



000000 
001000 
000000 
000000 
001000 
000000 
00 1 000 
001000 
00 I 000 
001000 
00 1000 



000000 

000312 

007636" 

007634' 

000333 

000000 

000365 

000200 

000107 

000361 

000311 



007654' 000000 000021 

007655" 000000 000312 

007656" 000000 00000 1 

007657"' 000000 000021 

007660" 000000 000312 

007661" 000000 000001. 

007662'" 000000 000001 

007663'" 000000 000302 

007664" 000000 000001 

007665" 000000 000007 

007666" 000000 000302 

007667" 000000 000001 



007670" 000000 000041 

007671" 000000 000312 

007672" 000000 000200 

007673" 000000 000005 

007674" 000000 000312 

007675" 000000 000002 

007676" 000000 000045 

007677'" 000000 000312 

007700" 000000 000200 



00770 1 "' 



fM17fi47! 



007701 ' U00000 000000 
007702" 000000 000000 



25500 



25600 

25700 

25800 
25900 
26000 
26100 
26300 
26400 
26500 
26600 
26700 
26S00 
26900 
27000 
27100 
27200 
27300 
27400 
27500 
27600 
27700 
27800 
27900 

28100 
28200 
28300 

28500 

28700 
28800 
28900 

29 1 00 
29200 
29300 
29400 
29500 
29600 
29700 
29800 
29900 
30000 



GET 



IN 



PUSH PS'MJ 
HDD 8 

flQU B,B 

POP PSW 

RET 
i HERE ARE THE LOAD DEO ICE TABLES 
.; BYTE 1 * DflTfi CHANNEL ADDRESS 
.; BYTE 2 = ACTIUE HIGH OR LOW . 
i BYTE 3 - INPUT STATUS BIT MASK 

J 

table: 



i_-'b 


£.1 


DB 


312 


DB 


i 


DB 


jL i 


DB 


312 


DB 


■i 
1 


DB 


I 


DB 


3 j^! 



DB 



DB 


y* 


DB 


y,ri 


DB 


i 


DB 


A 1 


DB 


3| 


DB 


2G 


DB 


.j 


DB 


~T -I 



DB 



DB 


ji|"> 


DB 


312 


DB 


200 



jNQT READY THEN CHECK AGAIN 



j READ THE DATA CHANNEL 

iSAUE THE CHAR 

i ADD IT TD CHECKSUM 

,'MQUE CHECKSUM BACK TO B 
.; RESTORE CHARACTER 
i RETURN 



;2SID WITH 2 STOP BITS 
; ACTIUE HIGH 
■ BIT 

:2SI0 WITH 1 STOP BIT 
; ACTIUE HIGH 
■'BIT 

;SID BOARD 
; ACTIUE LOW 
iBIT 

: ACR 

; ACTIUE LOW 

iBIT 

i4PI0 BOARD 
; ACTIUE HIGH 



.; ACTIUE HIGH 
.BIT 1 

.iHIGH SPEED REAE 
i ACTIUE HIGH 



;BIT 7 



Fwr, 



NO ERRORS DETECTED 

PROGRAM BREAK IS 00770: 
CPU TIME USED 00 ; 04.29S 

4K CORE USED 



: i -; 
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Something Sweet 
for your 

altair 680-b 



MITS is pleased to announce the development of a 16K static card for the 

Altair 680b. With an access time of 215 nanoseconds and low power consumption of 

-> 5 watts, we feel that this is an excellent addition to the Altair 680b. 

To sweeten the pot even more, we are including a free copy of Altair 680 BASIC, 

assembler, and text editor on paper tape. ($275 value) 

Altair 680 BASIC is identical to the 8K BASIC developed for the Altair 8800. 

Features include Boolean operators, the ability to read or write a byte from any I/O 

port or memory location, multiple statements per line, and the ability to interrupt 

program execution and then continue after the examination of variable values. 

Other features of Altair 680 BASIC include variable length strings (up to 255 

characters), with LEFT$, RIGHTS and MID$ functions, a concatenation operator 

and VAL and STR$ to convert between strings and numbers. Both string and 

numeric arrays of up to 30 dimensions can be used. Nesting of loops and subroutine 

calls is limited only by available memory. Intrinsic functions include: SIN, COS, 

TAN, LOG, EXR SQR, SGN, ABS, INT, FRE, END and POS, in addition to TAB and 

SPC in PRINT statements. Altair 680 BASIC takes 7K bytes of memory. 

MITS has also developed an expander card for the Altair 680b that lets you add up 

to three boards inside the main case. Read "Computer Notes" for announcements 

: v * •.'-'<■ of additional Altair 680b boards. 

PRICES 
Altair 680-BSM, 16K Static Memory Board, including Altair 680 BASIC, assembler 

and text editor .$685.00 kit 

$865.00 assembled 

Altair 680-MB Expander Card with one Edge Connector $24.00 kit 

Altair 680 BASIC (purchased separately) $200.00 

Altair 680 assembler and text editor (purchased separately) $ 75.00 

PRICE APPLIES ONLY TO PURCHASERS OF ALTAIR 680b COMPUTER 

Prices, specifications subject to change. Allow 30-60 days for delivery. 
MITS, Inc. 2450 Alamo S.E. /Albuquerque, New Mexico 87106 



ft 



DDQL7S© 




Page Twenty-Four 



CN/November 1976 



BASIC Paper Tape Program 



This portion of the program reads a paper tape and stores the bytes 
in RAM.** 



000 
001 
002 
003 
004 
005 
006 
007 
010 
011 
012 
013 
014 
015 
016 
017 
020 
021 
022 
023 
024 
025 
026 
027 
030 
031 
032 
033 
034 
035 
036 
037 

This portion 
the lines.** 

040 
041 
042 
043 
044 

"Ws 

046, ., 

04 7 

050 

051 

052 

053 

054 

055 

056 

057 

060 

061 

062 

063 

064 

065 

066 

067 

070 

071 

072 

073 

074 

075 

076 

077 

100 

101 

102 

103 

104 

105 

106 

107 

110 

111 

112 

113 

114 

115 



LXI 



LXI 



LXI 



LXI 



B.,NEXT loop address 



D,QS 



BYTE COUNT 



H.,200 BUFFER ADDRESS 



SP..200 TOP OF STACK + 1 



NEXT: 



MVI 


A.. 3 


INITIALIZE 2-SIO 


OUT 


20 




MVI 


A., 21 


2 STOP BITS 


OUT 


20 




PUSH 


B 


SAVE RETURN ADDRESS 


IN 


20 


CHECK STATUS BIT 


RRC 




DATA AVAILABLE? 


RNC 




NO - CHECK AGAIN 


IN 


21 


YES - GET BYTE 


MOV 


M,A 


SAVE BYTE IN RAM 


INX 


H • 


NEXT BUFFER ADDRESS 


INX 


D 


BYTE COUNT 


RET 




NEXT BYTE 


NOP 







& tfS 



001 

024 
000 
021 
000 
000 
041 
200 
000 
061 
200 
000 
076 
003 
323 
020 
076 
021 
323 
020 
305 
333 
020 
017 
320 
333 
021 
167 
043 
023 
31 1 
000 



of the program punches a paper tape with nulls between 

04 1 LXI H.,200 BUFFER ADDRESS 

200 

000 

001 

043 

000 

305 

315 

107 

000 

176 

043 

315 

073 

000 

326 

012 

300 

006 

005 

315 

073 

000 

005 

302 

064 

000 

365 

333 

020 

017 

017 

322 

74 

000 

361 

323 

021 

31 1 

033 

173 

262 

300 

303 

1 13 

000 




PUNCHR: LXI 



PUSH 
CALL 



MOV 
INX 
CALL 



SUI 

RNZ 

MVI 



B, PUNCHR 



B SAVE RETURN ADDRESS 
CHKDON SEE IF MORE BYTES TO PUNCH 



A,M FETCH BYTE 

H POINT TO NEXT BYTE 

OUTTY PUNCH BYTE 



NULLS: CALL 



DCR 
JNZ 



OUTTY: PUSH 
STATUS: IN 

RRC 
RRC 
JNC 



POP 
OUT 

. RET 

CHKDON: DCX 

MOV 

ORA 

RNZ 

SELF: JMP 



1 2 

B..5 
OUTTY 



B 
NULLS 



PSV 
20 



WAS IT A LINE FEED? 

NO - PUNCH ANOTHER 
YES - ADD NULLS 
NUMBER OF NULLS 
PUNCH A NULL 



MORE NULLS TO BE PUNCHED? 

YES - PUNCH ANOTHER 

OTHERWISE. .. 

. ..PUNCH LAST NULL 

SAVE BYTE 

CHECK STATUS BIT 



TTY READY.. . 
. . .TO PUNCH A BYTE? 
STATUS NO - CHECK AGAIN 



PSV 
21 



D 

A,E 
D 

SELF 



FETCH BYTE 
PUNCH IT 



BYTE COUNT 



MORE BYTES TO PUNCH? 

YES 

ALL DONE 



NOW 
AVAILABLE 






Computer Notes Review, Volume I. is a collection 
of reprinted articles from previous issues of 
Computer Notes (April, 1975 through July. 1976). 
We have eliminated all editorial, fictional and 
advertising materials and have printed only the 
most informative and technical articles pertain- 
ing to Altair hardware (specs, modifications, 
troubleshooting) and software. This 94-page book 
is arranged in an 8V2 x 11 format and is ready to 
insert in a 3-ring binder. The price of Volume I 
is $12.00. (Altair customers who have already 
ordered the Update Service will automatically 
receive Computer Notes Review, Volume I.) 



Please send me Computer Notes Review, Volume I. 

Enclosed is $ 

□ Check 

□ BankAmericard # 

□ Master Charge # 



NAME. 



ADDRESS. 
CITY 



STATE & ZIP. 



MITS/2450 Alamo S.E., Albuquerque, N.Mex. 87106 
505/243-7821 
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T.M. 



m M 



^m 



Number 6ne in low-cost computing. 





m 




w 



^ Altair, from Mits, is the nilffiber c - n me in microcomputers for 

home, business, perv. lai ? d industrial applications. 

Because the Altair was first, it has se the standard in the industry. 

More Altair 8800s are now operational than all other 

microcomputers combined. 

Whether you buy a $395 complete coi puter kit* or a multi-disk 

system for* under $10*000; Mits will provid ou with thorough and 

lasting support. Satisfied Altair users include schools, corporations, 

small businesses, students, engi - 3rs, and hobbyists. 
Altair hardware includes three microcompute the Altair 8800a, 
8800b, and 680b. Mits has a complete sefe< *i- ^n of Altair plug- 
compatible memory and interface options, m : iding the new Altair 
16K Static board and Altair multi-port serial and parallel I/O boards. 
Also available is a complete line of Altair peripherals including line 

printers, CRTs and multiple disk systems. 

Altair software is by far the mosi > .»>lete and best for any 

microcomputer. Our Extended BAS ll md Disk BASIC have 

received industry wide ac * U im for programming power and 

effi -i • y. Appfn. .ition pa -...« ?$ are available at many Altair 

Computer Centers** 
TheAltairc o : utei i ai volution in low cost computing. Shouldn't 
you write for more information including our free, color catalogue. 

*The Altair 680b turnkey model. 
**Retail Altair computer outlets now opened in many large cities. 
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680 Software News 



By Mark L. Chamber 1 in 

A Fix for the CONT Statement in 
680 BASIC : 

It seems an error slipped past 
us in 680 BASIC, which prevents the 
CONT (Continue) feature from oper- 
ating properly. I'd like to thank 
Mark E. Becker of Newton Centre, 
Massachusetts, and Douglas L. Jones 
of North East, Pennsylvania for 
bringing this matter to the atten- 
tion of the MITS software department. 
The following information will 
illustrate how to patch 680 BASIC 
to correct this condition. (All 
versions of 680 BASIC past 1.0 will 
not require this patch.) 

1) Load BASIC into your 680b. 

2) Use the Monitor's M£N 
commands to make the follow- 
ing patches: 



Address 


Contents 


00DA 


8D 


00DB 


36 


00DC 


DE 


00DD 


87 


00DE 


08 


00DF 


27 


00E0 


03 


00E1 


BD 


00E2 


15 


00E3 


D7 


, 00E4 , 


t ^f.i 7E : L 


00E5 


03 


00E6 


3C 


064D 


00 


064E 


DA 



At this point BASIC can be run 
and CONT will work fine. However, 
the program "PUNBAS" can be used to 
punch the corrected version of BASIC 
so that the patches don't have to 
be made each time BASIC is reloaded. 



Teletype™ Echo 



TM 



Unless Teletype 1M echo is sup- 
pressed while loading object tapes 
using the Monitor's L command, 
characters will be dropped. This 
is caused by a timing problem which 
occurs when operating at 110 baud. 
All MITS software for the 680 system 
suppresses echo automatically as it 
is loaded. Other object tapes 
should be loaded only after the 
echo suppress flag has been set. 
(See the Altair 680 System Monitor 
Manual for details.) 

It's Your Turn 

I'm always glad to hear about 
any new and exciting 680 applications. 
Don't forget that CN pays up to $50 
a page for good applications articles. 
So if you're doing something inter- 
esting with your 680, share it! 
Write an article detailing your 680 
project and send it to me. Other 
680 users will appreciate the bene- 
fit of your experience. 
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00001 

00002 
00003 
00004 
00005 
00006 
00007 
00008 
00009 
00010 
00011 

00013 

00014 

00015 

00016 

00017 

00018 

00019 

00020 

00021 

00022 

00023 

00024 

00025 

00026 

00027 

00028 

00029 

00030 

00031 

00032 

00033 

00034 

00035 

00036 

00037 

00038 

00039 

00040 

00041 

00042 

00043 

00044 

00045 

00046 

00047 

00048 

00049 

00050 

00051 

00052 

00053 

00054 

00055 

00056 

00057 

00058 

00059 

00060 

00061 

00062 

00063 

00064 

00065 

00066 

00067 

00068 

00069 

00070 

00071 

00072 

000 73 

00074 

000 75 

000 76 

00079 

00080 

00081 

00082 

00083 

00084 

00085 

000 86 

000 87 

00090 

00091 

00092 

00093 

00094 

00095 

00096 

00097 

00098 

00099 

00100 

00101 

00102 

00103 

00104 

00105 

00106 

00107 

00108 

00109 

00110 



FF81 
FF6D 
FFAB 

1AFF 



NAM PUNBAS 
OPT NO G# PAGE 
* 

* PUNCH 680 BASIC 

* MLC/ 1 1-17-76 
* 

* MONITOR ROUTINES IN ACIA MONITOR 
* 

0UTCH EQU SFF81 
0UT2H EQU SFF6D 
CRLF EQU SFFAB 



MONITOR OUT 
MONITOR OUT 



CHAR 

2 HEX DIGS 



MONITOR ENTRY POINT 



STACK EQU 
* 

* START RIGHT HERE 
* 

1B00 ORG 

1B00 8E 1AFF START LDS 
1B03 8D 34 BSR 

1B05 CE 1B97 LDX 
1B08 8D 7D BSR 

1B0A CE 1BA1 LDX 

1B0D 8D 78 BSR 

1B0F CE 0000 LDX 
1B12 FF 1B9C STX 
1B15 CE 00E6 LDX 
1B18 8D 28 BSR 

1B1A CE 0100 LDX 
IBID FF 1B9C STX 
1B20 CE 1AB2 LDX 
1B23 8D ID BSR 

1B25 CE 1B97 LDX 
1B2S 8D 5D BSR 

1B2A CE 1BAC LDX 
1B2D 8D 58 BSR 

1B2F CE 1BB7 LDX 
1B32 8D 53 BSR 

1B34 8D 03 BSR 

1B36 7E FFAB JMP 
* 

* LEDTRL PUNCHES 
* 
LEDTRL CLR A 

CLR B 
FF81 LED1 JSR 

DEC A 
FA BNE 

RTS 
1B9E PUN STX 
1B97 PUN0 LDX 
3D BSR 

1B9F LDA A 
1B.9D; SUB A J 
1B9E LDA B 
1B9C SBC B 
04 BNE 

10 CMP A 

02 BCS 

0F PUN 2 LDA A 
1BA0 PUN 3 STA A 
04 ADD A 

FF6D JSR 

INX 
23 BSR 

21 BSR 

1B9C LDX 
1C PUN4 BSR 
1BA0 DEC 

F9 BPL 

1B9C STX 

COM A 
FF6D JSR 

DEX 
1B9E CPX 
C3 BNE 

RTS 



S1AFF 



JUST BELOW THIS PROGRAM 



S1B00 

# STACK 

LEDTRL 

#F0RM 

PMESS 

#ECH0FF 

PMESS 

#0 

BEGADR 

#SE6 

PUN 

#$100 

BEGADR 

#$IAB2 

PUN 

#F0RM 

PMESS 

#ECH0N 

PMESS 

#E0F 

PMESS 

LEDTRL 

CRLF 

256 NULLS 



INIT THE STACK POINTER 
PUNCH SOME LEADER 
PUNCH ECHO OFF RECORD 



START PUNCHING AT 



STOP BEFORE MONITOR STACK 



START ABOVE MONITOR FLAGS 



END AT END OF BASIC 



PUNCH ECHO ON RECORD 



PUNCH EOF RECORD 

PUNCH TRAILER 

RETURN TO THE MONITOR 



1B39 4F 
1B3A 5F 
1B3B BD 
1B3E 4A 
1B3F 26 
1B41 39 
1B42 FF 
1B45 CE 
1B48 8D 
1B4A B6 
1B4D B0 
1B50 F6 
1B53 F2 
1B56 26 
1B58 81 
1B5A 25 
1B5C 86 
1B5E B7 
1B61 8B 
1B63 BD 
1B66 08 
1B67 8D 
1B69 8D 
1B6B FE 
1B6E 
1B70 
1B73 2A 
1B75 FF 
1878 43 
1B79 BD 
1B7C 09 
1B7D BC 
1B80 26 
1B82 39 



8D 
7A 



OUTCH 

LED1 

LAS ADR 

#F0RM 

PMESS 

LASADR+ 1 

BEGADR+l 

LASADR 

BEGADR 

PUN 2 

#16 

PUN 3 

#15 

NUMBYT 

#4 

0UT2H 

PNCH2 

PNCH2 

BEGADR 

PNCH2 

NUMBYT 

PUN4 

BEGADR 

0UT2H 

LASADR 
PUN0 



PUNCH A NULL 

KEEP PUNCHIN THOSE ZEROES 
RETURN TO CALLER 

PUNCH THE FORMAT BYTES 

SUB LOW ORDER BYTES 

SUB HIGH ORDER BYTES 

LOTS MORE TO PUNCH 

LESS THAN 16 TO PUNCH? 

YES 

NO, SO PUNCH 16 

STORE #OF BYTES TO PUNCH- 1 

ADJUST BYTE COUNT 

PUNCH BYTE COUNT 

POINT TO BEGADR 

PUNCH ADDRESS 

POINT TO DATA 

PUNCH DATA 

MORE TO PUNCH THIS RECORD? 

YES 

STORE NEW START ADDRESS 

ONE'S C0MP OF CHECKSUM 

PUNCH CHECKSUM 

ADJUST POINTER 

ARE WE DONE? 

NO* KEEP ON PUNCHING 

YES# RETURN 



* 

* THIS ROUTINE PUNCHES WHAT X POINTS TO 

* STOPS WHEN IT SEES A CHAR WITH BIT 7 SET 



1B83 BD FF81 

1B86 08 

1B87 E6 00 

1B89 2A F8 

1B8B 39 



1B8C E6 00 

1B8E IB 

1B8F 36 

1B90 17 

1B91 BD FF6D 

1B94 32 

1B95 08 

1B96 39 

1B97 0D 

1B9C 0002 

1B9E 0002 

1BA0 0001 

1BA1 30 

1BAB FF 

1BAC 30 

1BB6 FF 

1BB7 0D 



SENDIT JSR 

INX 
PMESS LDA B 

BPL 

RTS 
'*■'" 

* PUNCH DATA BYTE POINTED TO 
* 



OUTCH 

-x ■;•■■■'■■ 

SENDIT 



PUNCH THE CHAR 

POINT TO NEXT CHAR 

GET THE CHAR 

IF N0N NEGATIVE THEN SEND 

RETURN ON BIT 7 SET 

BY X 



PNCH2- LDA B 

ABA 

PSH A 

TBA 

JSR 

PUL A 

INX 

RTS 

FORM FCB 

BEGADR RMB 

LASADR RMB 

NUMBYT RMB 

ECHOFF FCC 

FCB 

ECH0N FCC 

FCB 

EOF FCB 

END 



X GET BYTE TO PUNCH 
UPDATE CHECKSUM 
SAVE CHECKSUM 
COPY BYTE TO A 

0UT2H PUNCH THE BYTE 

RESTORE CHECKSUM 
BUMP BYTE POINTER 
RETURN TO CALLER 

$D*SA» 'S* * l,$FF 

2 

2 

1 

/0400F3FF09/ 

SFF 

/0400F30008/ 

SFF 

$D*$A* 'S* *9#$FF 
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Altair BASIC 
File Structures 



By Gary Runyan 

Maintaining the extensive inven- 
tory required by a computer manufac- 
turer is of primary importance, but 
also can be a tedious, error-prone 
job when done manually. To achieve 
better inventory control, MITS has 
implemented a computerized system 
which runs on the Altair 8800 This 
article will use programs from our 
system to illustrate how to program 
for such a typical application. At 
the end of the article is a list of 
the hardware in our system and some 
comments for those who would like to 
implement on a lower cost system. 

The most important part in the 
design of such a system is how the 
files are set up. Files that are 
correctly set up will be easy to use 
and maintain. Poorly set up files 
will be a perpetual headache, causing 
either an eventual rewrite of the 
system or, more often, abandonment of 
the system. 

The "INVEN" (shown right) listing 
in this article shows how the central 
file (a random file) in our system is 
set up and how it is handled. The 
"INVEN" listing also shows the use of 
another random file and a sequential 
file. The "CALC" listing shows how to 
read programs as data files. The 
third listing in this article is an 
example of a program that will be read 
as a data file. 

The listing of "INVEN" contains 
modules from the main program in our 
inventory system. The modules listed 
were included to show: 

a) program startup initialization and 
comments about the files used by 
the program (lines 1-35) 

b) what the complete program does 
(lines 60-100) 



c) an example of how to modify records 
in a random file (lines 900-1040) 

d) an example of how sequential files 
are used (lines 1800-1868 and 2700- 
2820) 

e) one approach to the problem of 
handling a random file that spans 
more than one disk (lines 2000- 
2030) 

f) two subroutines (lines 300-340 and 
9200-9220), which are called by the 
listed modules. 

Continued on 
Page Twenty-Nine 
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1 DEFINT F-N 

2 DEFINT R 

3 DEFINT Z 

5 DEFDBL P 

6 DEF FNY#(Q8>=INT((VAL(STR$(QS)+ a D"}*A#'> + 5D>/k§ 

7 DEF FNQ#(Q9>=INT( (VAL<STR$(Q9)+"D" >*1@MDJ+ 5D*/100m 

8 A$=NKD$(0> : B$=MKS$(0) : R#=180000D 

10 DIM mC2),Pt<2> 

11 ' ;ffc;- ;;;-■■ 

INV1 ON DRIVE HOLDS ITEMS 1-2800 " 3 - 

INV2 ON DRIVE 1 HOLDS ITEMS 2881-4080 ■ ' 

INV3 ON DRIVE 1 HOLDS SUMS LOGGED IN FIND OUT BV DEPARTMENT 

12 ' 

HEKLYRST FIND M0NTHR$T ARE MRITTEN MHILE THE MEEKLY, MONTHLY ACTIVE ITEM* LISTS 
ARE PRINT INGj CONTAIN THE ITEM #S THAT NEED TO BE RESET; AND ARE R*RD BY 
THE MEEKLY/MONTHLY RESETS. 

14 *■' 

Q$(> <=> THREE ON HAND QTY FOR: p$K> <=> THREE PRICES 

CP<0> OLDEST.. P(l> NEXT OLDEST.. Q<0><>8 IF Q<1><>0. £>a>C>0 IF Q(2^<>0] 

D$ <=> DESCRIPTION LEFT$(D$, 3>="$$$" 0> INRCTVE ITEM # 

15 " 

11$ <=> MEEKLY QTY IN 

12$ <=> MONTHLY QTY IN 

01$ <=> MEEKLY QTY OUT 

02$ <=> MONTHLY QTY OUT 

T$ <=> REORDER LEVEL 

DI1$ <=> MEEKLY $ IN 

ID2$ <=> MONTHLY $ IN 1 

D01$ <=> MEEKLY $ OUT 

OD2$ <=> MONTHLY $ OUT 

17 ' 

DT1$ <=> MEEKLY DEFT $ TAKEN 

DX2$ <=> MONTHLY DEPT t TAKEN 

DG1$ <=•> MEEKLY DEPT $ GIVEN 

DY2$ <=> MONTHLY DEPT $ GIVEN 

20 OPEN "R",#l,"INVr' .'■'"■■'A 

30 OPEN "R",#2,"INV2",1 

32 OPEN "R«, #3,"INV3",1 

35 FIELD #3,8 AS DTl$.-8 AS DX2$,S RS DG1$, 8 AS -DY2$ 

68 PRINT. F=0:INPUTmjNOTFQN NUMBER"; F: IFF>255THEN63 . OOG.s M>ii 

6t ON F GOTO 218, 350,-350, 1900, 680, 980, 1780, 2700,1800,1700, 2700, 250R. 23f>0 

/ 2400, 1880, 2900 ' 2 3 4 5 6 7 8 9 10 11 12 13 

14 15 16 - .:: .; 

e3 PRINT"! - ENTER NEM ITEM" ,". : 

64 PRINT"2 - LIST ITEM ON CRT (SHORT FORM)" 

65 PR INT" 3 - LIST ITEM ON CRT (LONG F0RN>" 

66 PRINT"4 - PRINT ITEMS ON LINE PRINTER 

67 PRINTS - ADD TO INVENTORY" 

68 PRINT "6 - REMOVE FROM INVENTORY" 

69 PRINV7 - PRINT MEEKLY DEPARTMENT DOLLRR RECORD ON LINE PRINTER 

70 PRINT'S - PRINT MEEKLY ACTIVE ITEMS LIST ON LINE PRINTER 

71 PRINV9 - MEEKLY RESET' ' 

72 PRINT°18- PRINT MONTHLY DEPRRTMENT DOLLRR RECORD ON LINE PRINTER 

73 PRINT«11- PRINT MONTHLY RCTIVE ITEMS LIST ON VINE PRINTER 

74 PRINT"12- MONTHLY RESET 

75 PRINT-13- RESET ORDER LEVELS 

76 PRINT-14- PRINT LI STNG OF ITEMS NEEDING TO BE RE-ORDERED 

77 PRINT" 15- DELETE OLD ITEM 

78 PRINT H 16- ERRORS BACKOUT 
100 GOTO60 

298 ' 
* 

SUB - INPUT PART # * GET RECORD 
* 

300 PRINT: PRINT- N=0:INPUT"PRRT NUMBER"; N: IFN<1THENRETURN 
310 IFN>4000THENPRINT: PRINT"* TOO HIGH": GOTO 300 
320 GOSUB2000:GETZ,R1 

330 IFLEFTf(D$, 3) = "$$$"THENFRINT: PRINT"NO INFORMRTION ON PART"; N: GOTO300 
340 RETURN 
890 ' 
* . 

F=6 - REMOVE FROM INVENTORY 
* 

.900 GOSUB300: IFN=0GOTO63 

920 DN=-1: INPUT "NUMBER OF ITEMS REMOVED FROM INVENTORY"; DN: I FDN=-1THEN6? 

950 IFCVS(Q$(0> ) +CVS(Q$(1 ) > +CVS(Q$(2Xf<DNTHENPRINT " 

ATTEMPT TO REMOVE MORE THAN ON HAND": PRINT: G0T063- 
960 DO=DN:P=0 
978 IFD8<CVS(Q$(0))THEN 

P=P+FNQ*KD0)*CVD(P$(0)>:LSETQ$(0}=MKS$(CVS(Q$(8)}-D8>:GOTni0e)0 
980 P=P+FNQ#(CVS(Q$(0) > .> *CVD(P$(0> > : D@=D8-CVS(Q$(0) > : 

LSETQ$(0)=Q$(1> : LSETQ$(1>=Q$(2> : LSETQ$(2)=B$: 

LSETF$(0)=P$(1) : LSETP$(1)=P$(2>: LSETF$(2)=A$: IFD8THENGOTO970 
1880 LSET01$=MKS$(CVS(01$> +DN) t LSET02$=MKS$(CVS(02$> +DN > : 

LSETD01$=MKD$(CVD(D01$)+P) : LSET0D2$=MKD$(CYD(QD2$)+P > 
1828 GOSUB9280: IFCZ=-1GQT063 

1038 LSETDT1$=MKD$(CYD(DT1$)+P>:LSETDX2$±MKD$(CVD(DX2$)+P~> 
1848 PUTS, C%: PUTZ, Rl: G0T0988 
1790 ' 
* 

F=9 - MEEKLY RESET 
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"INVEN" (cont.) 



The function FNY# (line 6) is 
used to round dollar amounts to thou- 
sandths of a cent. FNQ# (line 7) is 
used to round quantities to thou- 
sandths. These two functions also 
get around a bus in 3.4 that puts 
garbage after the sixth digit during 
certain single to double precision 
conversions. This bug has been fixed 
in 4.0. 

INV3 is fielded once in the pro- 
gram initialization, but INV1 and 
INV2 will be repeatedly fielded by 
calls to the subroutine at line 2000. 
The IF F>255 (line 60) avoids the 
program being stopped by an i 1 legal 
function call at line 61. 

PUT statements are the very last 
statements executed in the Remove 
from Inventory module, the Add to 
Inventory module, etc. This prevents 
updating one file but not the other 
(as could happen if PUTZ, Rl was at 
line 1010). 

Line 2000 sets Z to 1 and Rl to 
N if the item wanted, N, is less 
than 2001. It sets Z to 2 and Rl to 
N-2000 if the item wanted is greater 
than 2000. Line 2020 then sets the 
pointers for the variables in the 
field statement to point into either 
the buffer for INV1 or the buffer for 
INV2, depending on whether the item 
wanted is less than 2001 or greater 
than 2000. ^,, >^v ^ 

The "CALC" listing on page 
is a partial listing of a program 
which determines if there are 
enough parts in inventory to meet 
projected demands. 

Line 26 waits while the disk 
comes up to speed so "ENABLE DISK 1" 
will not come up on the terminal. 
Lines 40-80 input up to fifty differ- 
ent product codes and a number to be 
built for each product. Line 100 
opens a file for each product that 
contains the parts required for the 
product. Line 112 builds up a report 
heading extracting the product des- 
cription contained in line 10 of each 
file. Lines 120-150 accumulate the 
parts required for each product into 
the matrix Q. 

The following is a partial list- 
ing of the parts file for the 8800b: 

5 CODE 1 

10 PARTS LIST FOR flflDDB 

20 OCT 30-. n?t. 

=10 REM THIS IS THE START OF DATA 

100-. 11 i 1042 

110i3ill3M 

120i4i 1040 

130ilil020 

140i li 1021 

150ilil024 

ma-.i-.ia?! 

170ilil074 

ia0ili2105 

n0i24i34fi 

200i2i32b 

+C 



1800 PRINT"? - MEEKLY DEPARTMENT RECORD 

1862 PRINTS'- MEEKLY RCTIVE ITEMS 

1884 Z$= B ":INPUT"HRVE THE ABOVE BEEN LISTED FOR TQDRY"iZ$ 

1810 IFRIGHT$(Z$, 1><> H Y"THENPRINT: PRINT"MEEKLY RESET NOT PERFORMED" : G0T063 

1843 OPEN "I", 4, "MEKL YRST " 

1845 IFEOF<4>THENCLOSE4:KILL"MEKLYRST":Q0T01862 

1850 INPUU4,N: IF 1<=NRNDN<=4800 THENGOSUB2008:GETZ,R1 

ELSEPRINTNj SUT OF BOUNDS. RESET ABORTED. ":END 
1855 LSETI1$=B$: LSETOi$=B$: LSETDI1$=R$:LSETDQ1$=R$: PUTZ.. Rl 
I860 G0T01845 
1862 F0RI=1T028 

1864 GETS.. I:LSETDT1$=R$:LSETDQ1$=R$:PUT3,I 
1866 NEXT 
1868 GOTO60 
1999 
* 

SUB - GET Z,R1 FOR N FIND FIELD TO INV1,2 
* 

2000 Z=1-M>2800>R1=N*<Z=2>*2008 

2820 FIELD Z> 4 RS Q$<8>,4 RS Q$(l>,4 RS Q$(2>, 8 RS P$<0>,8 RS'P$(1>.. 

8 RS P$(2),40 RS D$,4 RS 11$.. 4 RS 12$, 4 RS 01$.. 4 RS 02$.- 4 RST$.. 

8 RS DI1$,8 RS ID2$,8 RS D01$,8 RS 0D2$ 
2838 RETURN 

2698 ' 
* 

Fa8s.ll - MEEKLY, MONTHLV RCTIVE ITEMS LIST 
* 

2708 N=l: GOSUB20O0 

2703 IFF=8TH£N0PEN"Q«, 4, "MEKLYRST"ELSEOPEN H 0", 4, "MONTHRST" 

2710 FORI-1TO2000 

2720 GETZ, I: IFLEFT$(D$, 3>="$$$"THEN2800 

2723 88=C¥S<Q$<8>>: Q1=CVS(Q$(1>>: Q2=CVS(Q$<2>> 

2725 IFF=8THENI !=CVS<I1$>: 0!=CVS(01$>: l4=CVD<DIl$>: 0#=CVD<D01$> 

ELSE! ! =CVS<I2$> : 0! -CVS(02$> : I#=CVD<ID2$> : 0#=CVD(0D2$> 
2730 IF I ! +0 ! =8THEN2888 
2733 PRINW4, N+I-l 

2740J!E}1_PR1NJJ>RRJ^ON LIME -PRINTER CODE NOT SHOWN 
2880 NEXT 

2810 IFN=1THENN=2001 • GQSUB2888: G0T02718 

2811 CLOSE4 

l S2 & R , Et1 PRI1iT TOTRLS ON LINE PRINTER CODE NOT SHOWN 
9190 

* .■:■.-'■-;<■ '■•_'.'•■■■■ !. '""-■.- 

INPUT DEPARTMENT # AND GET TOTALS 
# 

9280 CZ=-1:INPUT»ENTER DEPARTMENT CODE" J CK- IFCH=-1THENRETURN 
9218 IF1<=V'/.RNDC'/.<=28THENGET3, CK- RETURN 
9220 PRINT" INVRLID CODE": G0T09288 



"CALC 



JJ 



5 CLERR 590 

10 DEFINT A-Z 

20 DIM CN<49>, NU<49), Q<4B68> 

22 CLOSE: UNL0RD1: OUTS.. 255 

24 INPUT"PLRCE DISK MITH PRRTS LISTS IN DRIVE 1. HIT RETURN", Q$ 

26 FORI=1TO5000: NEXTI 

28 MOUNT1 

32 PRINT"TODRY'S MO/DR/YR "j : LINE INPUTDT$: H$=DT$+" PRRTS RVRILRBLE FOR:" 

4@ INPUT"CQDE NUNBER(8 HHEN FINISHED)"; CN<I> 

58 IF CN(I>=0 THEN 90 

68 IF CNCIXi OR 99<CN<I> THEN PRINT"INVRLID CODE NUMBER" : GOTO 40 

70 INPUT"NUMBER OF UNITS TO BE NRDE"; NLKI) 

SO 1=1+1: IF K58 THEN 48 

98 FOR K=8 TO 1-1 

188 0PEN"I",#1, • , C0DE"+MID$(STR$<CN(K)),2)..l 

184 L INEINPUTtl, A$: IFR$= " " THEN1 04 

186 IFLEFT$<A$,3>="90 "THEN120 

188 IFLEFT$<R$,3X>"18 "THEN104 

110 IFKTHENH$=H$+«, " 

112 H$=H$+STR$<NU<K))+STRt(CN(K). ) + "<=< "+MID$(R$, 20>+"> ': GOTO104 

128 IF EOF(l) THEN 168 

130 INPUT #1,R,QN,PN 

140 Q<PN>=Q(PN)+NU(K>*QN 

158 GOTO 120 

168 CLOSE 1:NEXT K 

208 REM PROMPT OPERATOR TO RELOAD SECOND HALF OF INVENTORY FILES IN DRIVE 

210 REM ONE. OPEN INVENTORY FILES. PRINT REPORT OF 8TY NEEDED VS ON HRND. 
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BASIC File Structures (cont.) 

The parts lists for a product are 
programs saved with the A option. 
Since they are programs, their main- 
tenance is very easy. For example: 
Let's assume part 1071 in the 8800b is 
too marginal and that from now on 
they should be built with part 1173 
instead of part 1071. With the parts 
lists disk mounted on drive 0, the 
following sequence will update the 
8800b file. 

LOAD "C0DE1" 
IbD-. li 1173 
SAVE "COl>El"-,0-.A 

The programmer who is cramped for 
memory will find that he can still ade- 
quately document programs if he sets 
up comments as separate files. The 
memory used for variables when a pro- 
gram runs can be utilized for comments 
if the comments are merged in when the 
program is to be listed. Additional 
memory can be obtained by bringing 
BASIC up without optional functions 
and with no files. Another alterna- 
tive would be to list the program a 
half at a time. 

The main inventory program is set 
up so that if one types the return 
key with no input in reply to any 
prompt, the program dumps the function 
descriptions on the CRT and returns 
to the prompt FUNCTION NUMBER. If 
the program was to be run on a printing 
terminal, instead of a 9600 baud CRT, 
it would not be set up to print the 
descriptions every time the operator 
wanted to get back to the prompt 
FUNCTION NUMBER. The list of func- 
tion descriptions would be taped up 
next to the terminal. 

The system consists of an Altair 
8800b, two disk drives, a 24- line 
LEAR SIEGLER CRT, 2SIO board, line 
printer, PROM memory board with the 
disk bootstrap loader on PROM and two 
16K static memory boards. The soft- 
ware currently being used is 3.4 
Disk Extended BASIC. When the main 
inventory program (with comments) is 
running, there are 4,126 bytes free. 



101 BASIC 



Book Review 



By Linda Blocki 





101 BASIC Computer Games , 
edited by David H. Ahl, is not 
only the first collection of games 
all in BASIC, but a uniquely educa- 
tional book which provides both a 
complete listing and description 
of every game along with a sample 
program for each. 

As Ahl points out in his book, 
educators generally agree that 
games are highly motivational and 
promote learning by discovery. What 
better way is there to learn about 
Newton's second law than by simu- 
lating an Apollo lunar landing in 
ROCKET? Or to learn about logic by 
playing BAGLES? You can even in- 
crease your vocabulary while playing 
SYNONM or improve your writing 
skills in BUZZWD by learning how to 
compose computer speeches with 
the latest buzz words. 

For those interested in more 
exotic games, there's CHEMST, in 
which the player tries to dilute 
the fictitious kryptocyanic acid; 
CHOMP, which involves eating a 
cookie while trying to avoid the 
poison piece and HELLO, in which the 
computer dispenses advice on such 
problems as sex, health, money, or 
a job. 

Computer enthusiasts with a 
sense of humor will find many en- 
tertaining games in the book with 
such challenging objectives as 
delivering pizzas successfully 
(PIZZA) , doing a silly profile plot 
of an ugly woman (UGLY) and finding 
the happy hurkle beast hiding in 
a 10 x 10 matrix (HURKLE). 




The names alone of many games 
are intriguing enough to invite 
further investigation. FIPFOP, 
SPLAT and ZOOP are sure to send a 
hobbyist running to his computer. 
FIPFOP is a solitaire logic game 
dealing with changing a row of Xs 
to 0s. SPLAT involves opening a 
parachute at the last possible 
moment. ZOOP, otherwise known as 
the BASIC programmer's nightmare, 
is designed to imitate the system 
commands of a BASIC compiler, except 
that it gives totally meaningless 
and frustrating results. 

Ahl spent considerable time 
collecting his potpourri of games 
on his travels to various schools 
as well as from submittals in res- 
ponse to an advertisement. Game 
authors range from seventh graders 
in California to PhDs in England. 

The games run the gamut from 
extremely simple to more complex, 
but most require no special know- 
ledge. To solve the game categori- 
zation dilemma, Ahl has simply 
listed the games in alphabetical 
order. But in the appendices, he 
has outlined some "family" groupings, 
such as logic, plotting and matrix 
games., 

A BASIC- speaking computer is 
the only equipment needed to play 
any of the games. However, Ahl 
suggests that a grid or quadrille 
paper be used to play four of the 
matrix games and one of the supple- 
mental diagrams included in the 
appendices be used when playing 
QUBIC. 

Continued on 
Page Thirty-One 
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Most of the games also run in 
"standard" BASIC with any exceptions 
noted under the game title. 

Due to the addictive nature of 
the games, computer enthusiasts 
should be reminded not to neglect 
eating and sleeping in favor of 
playing ANIMAL or FOOTBL. 

101 BASIC Computer Games is 
available in only a softbound edi- 
tion (248 pages) for $7.50 plus 
75<£ postage from: 

Creative Computing 

P.O. Box 789-M 

Morris town, NJ 07960 



Games 



"Bulcow" and "Nicoma" are just 
two of the many interesting games 
from David Ahl's, 101 BASIC Computer 
Games. 



BULCOW 



nicoma 



5 GOSUB500 

10 DIM D<10*4>/BC10>*CC10>..G<10> 

15 PRINT: PRINT: PRINT , 

20 A=0:GOTO200 

30 PRINT:PRINT:PRINT:J=0 

35 INPUT"YOUR GUESS";N:N=CN+. 1 )/ 100000 

40 FOR 1 = TO 4:GU> = INTC10*N>:N=10*N-INTC10*N> 

41 FOR K=0 TO I-1:IF 1=0 GOTO 44 

42 IFGCI)=GCK> GOTO 170 

43 NEXT K s . 

44 NEXT I 

45 P=4:A=0:GOSUB 300 

50 if v=l then bs="bull" else b$="bulls" 

51 if w-v=l then cs="c0w" else c$="c0ws" 

60 if v=5 then print"5 bulls* you win!": goto 20 

else printv;b$;w-v;c$ 
65 if j=0 then a=1:g0t0 200 

68 GOSUB 400 

70 PRINT-MY GUESS IS "i 

75 FOR 1=0 TO 4:PRINT CHRSCDC J* I >+48>; :NEXT 

80 INPUT" MY SC0RE";B(J)*CCJ):C(J)=C(J)+BCJ) 

81 IF BCJ>>-1 THEN IF BCJX6 THEN IF C<J)<6 

THEN IF CCJ>-BCJ>>-1 THEN GOTO 83 

82 PRINT"RIDICULOUS! !":G0T0 70 

83 IF BCJ>=4 THEN IF C<J)=5 THEN GOTO 82 

85 IF B(J)=5 THEN PRINT " - I WIN - MY NUMBER WAS": GOTO 100 

90 GOTO 35 

100 FOR 1 = TO 4: PRINT CHRS CDC I, I >+48> ; '.NEXT 

102 PRINTNS 

110 GOTO 20 

150 PRINT:PRINT "YOU HAVE GIVEN ME IMPOSSIBLE SCORES - GAME SPOILED": 

GOTO 20 
170 PRINT "REPEATED DIGITS NOT ALLOWED": GOTO 35 
200 FOR P=0 TO 4 
210 DCA*P>=INTC10*RNDC1)> 
220 FOR 1=0 TO P-lJlF P=0 GOTO 230 
222 IF DCA.. I)=DCA,P> THEN GOTO 210 
230 NEXT I:NEXT P 
250 IF A=0 THEN GOTO 30 
260 J=l:GOTO 70 
300 V=0:W=0 

310 FOR 1=0 TO P:IF DCA,I)=GCI> THEN V=V+ 1 
320 FOR K=0 TO 4:IF DCA,K)=GCI> THEN W=W+ 1 
322 NEXT K 
330 NEXT I 
350 RETURN 
400 P=0 

405 GCP)=DCJjP> 

410 FOR 1=0 TO P-1:IF P=0 GOTO420 
412 IF GCI)=GCP) GOTO 430 
415 NEXT 

420 FOR A=l TO J: GO SUB 300 
425 IF V<=B<A) THEN IF W<=CCA) THEN IF 4-P>=CCA)-W 

THEN IF 4-P>=BCA)-V GOTO 448 
430 GCP)=GCP)+3:IF GCP)>9 THEN GCP>=GCP)-10 
432 IF P=0 THEN IF GCP)=DC1 J 0> GOTO 150 
435 IF GCPX>DCJ,P> GOTO 410 
440 P=P-1:IF P<0 GOTO 150 
445 GOTO 430 
448 NEXT A 

450 P=P+1:IF P<5 GOTO 405 
455 J=J+1 

460 FOR 1=0 TO 4:DCJ, I)=G(I):NEXT 
465 RETURN 

500 PRINT:PRINT:PRINT" BRADFORD UNIVERSITY BULLS AND COWS GAME" 

510 GOTO 10 
999 END 

NOTE : Correction to "Bulcow 1 ' 

NB: Change "GOTO 20" to 
"GOTO 5" in lines 60 and 
110. Otherwise, the 
computer cheats! 



10 PRINT"BOOMERANG PUZZLE FROM ARITHMETICA OF NICOMACHUS — A.D. 90!" 

20 PRINT 

30 PRINT"PLEASE THINK OF A NUMBER BETWEEN 1 & 100" 

40 INPUT"YOUR NUMBER DIVIDED BY 3 HAS A REMAINDER OF";A 

50 INPUT"YOUR NUMBER DIVIDED BY 5 HAS A REMAINDER 0F";B 

60 INPUT"Y0UR NUMBER DIVIDED BY 7 HAS A REMAINDER 0F";C 

80 PRINT:PRINT"LET ME THINK A MOMENT .** 

90 FOR 1=1 TO 10000: NEXT: REM SLOW IT DOWN A LITTLE 

100 D=70*A+21*B+15*C 

110 IF D<105 THEN GOTO 140 

120 D=D-105:GOTO 110 

140 PRINT:PRINT"YOUR NUMBER WAS"; D; "RIGHT?" 

160 INPUT AS 

170 IF LEFTSCAS* 1>="Y" THEN GOTO 220 

180 IF LEFTSCAS, 1)="N" THEN GOTO 240 

190 PRINT"EH? I DON'T UNDERSTAND , ";A$J"' TRY 'YES' OR 'NO'": GOTO 160 

220 PRINT"HOW ABOUT THAT!!":GOTO 250 

240 PRINT" I FEAR YOUR ARITHMETIC IS IN ERROR." 

250 PRINT :PRINT"LET'S TRY ANOTHER." 

260 GOTO 20 

OK 
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Greatest Computer Shows Ever! 



Personal Computing magazine 
is proud to announce that it is sponsor- 
ing the first series of regional Personal 
Computing Shows. 

Beginning with the Western Per- 
sonal Computing Show in Los Angeles, 
and followed by the Eastern Personal 
Computing Show in Philadelphia and 
the New England Personal Comput- 
ing Show in Boston, Personal 
Computing magazine intends to 
make everyone aware of low-cost com- 
puting. 

Other shows are now being planned 
for the South, Southwest, Canada, and 
Europe! 

Already, invitations have been sent 
to all the manufacturers in the per- 
sonal computing field, computer 
stores, computer clubs and well-known 
computer experts. 

Special areas of the exhibition halls 
will be set aside for Personal Comput- 
ing in Education, in the Home, in HAM 
Radio, and in Small Businesses. These 
are all first for a computer show. 

Seminars and special presentations 
include: Computer Synthesized Music, 
HAM Applications, Trends in Micro- 
computers, Mass Storage Systems, 
Lemonade Computer Service Compa- 



nies, The Kitchen Computer, Comput- 
ers on the Farm, The Small Business 
System, Software for Fun and Practical 
Applications, Computer Club Organiza- 
tion, Standards for the Hobbyists, Com- 
puter Art, The House Robot, Comput- 
er Crime, Software Protection and Fu- 
ture Computing. 

In addition, special tutorial work- 
shops will cover all aspects of computer 
hardware, programming in both ma- 
chine language and higher-level lan- 
guage and applications. Workshops are 
designed for both beginners and ad- 
vanced students in the art of personal 
computing. 



We anticipate 150 different exhibits 
and crowds of up to 10,000 people at 
each of these shows. Arrangements for 
the shows are being handled by a pro- 
fessional management company to en- 
sure that everything runs smoothly. 
Cost of Registration: 
At the door: 

$10 per show (two days) 

$ 6 per One Day Pass 
Special Pre-Registration Rates: 

$ 7.50 per show (two days) 

$ 4.00 per One Day Pass 
Note: Show tickets and one day passes 
entitle you to attend all seminars, work- 
shops, exhibits and other events. 
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Register Now and Save! 

Yes, I would like to take advantage of your special, pre-registration rates 
I plan to attend the following regional Personal Computing Show(s): 



D Los Angeles 
OShow (two days) 
□One Day Pass Only 



Enclosed is a check for 
Name 



Q Philadelphia 

QShow (two days) 
DQne day pass 



□Boston 

□Show (two days) 
n One day pass 



Address 

City 



State & Zip 



Send to: Personal Computing, Conference & Exposition Management 
Co., Box 844, Greenwich, CT 06830. 
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